[Xml-compile] Memory leak when compiling calls?

[Matthew Horsfall (alh)]

The attached script demonstrates a memory leak when compiling calls.
Memory just keeps growing and growing and growing.

Is this a bug?

Thanks,

-- Matthew Horsfall (alh)

#!/usr/bin/env perl

use strict;
use warnings;

use LWP::UserAgent;

use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;

use File::Temp qw(tempfile);

my $wsdl_url = 'https://platform.mediamind.com/Eyeblaster.MediaMind.API/AdvertiserService.svc?wsdl';

# Grab wsdl
my (undef, $file) = tempfile();
$file .= ".wsdl1";

my $lwp = LWP::UserAgent->new;
my $res = $lwp->mirror($wsdl_url, $file);
die "Mirroring failed: " . $res->status_line unless $res->is_success;

# This continually grabs more and more memory. The compileCalls()
# seems to be the culprit. I would expect this to not continue to
# grow endlessly 
while (1) {
  my $wsdl = XML::Compile::WSDL11->new($file);

  print "Compiling calls...\n";
  $wsdl->compileCalls;
}


_______________________________________________
Xml-compile mailing list
Xml-compile@lists.scsys.co.uk
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile