| Subject: | Possible Memory Leak in WWW::Mechanize 1.18 |
| Date: | Sun, 12 Feb 2006 19:12:26 -0600 |
| To: | <bug-www-mechanize [...] rt.cpan.org> |
| From: | "Spam" <nibble [...] bitman.org> |
I believe I have found a memory leak in WWW::Mechanize 1.18 running under Windows 2000 Advanced Server, ActiveState Perl 5.8.7 Build 815 and WWW::Mechanize 1.18.
I see the memory leak in Windows by watching the Task Manager for the Perl Process as it's memory usage climbs with each loop.
###########################
use WWW::Mechanize;
$ua = WWW::Mechanize->new(agent=>"Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+NT+5.0;+ZetaSpider",stack_depth => 1);
for ($x=0;$x<100000000;$x++) {
$ua->get("http://www.google.com");
$gist = $ua->content(format => "text" ); # Leaks Memory
# $gist = $ua->response()->content(format => "text"); # Doesn't Leak Memory
print("$x\n"); # Just to show how many 'get's
}