# I'm seeing what looks like a memory leak. The script below uses a timer to
# trigger the T_Timer subroutine every second which prints a counter's value.
# Using NT's performance monitor, I see the Perl process using 3244K of memory.
# At the following counter values the corresponding memory usage is shown:
# count=10 memory used= 3248
# 38 3252
# 58 3256
# 88 3260
# 104 3264
# Note the 4K increasing memory usage per change. I did not notice any
# periodic rate to the 4K increments.
# Here's the test script:
use Win32::GUI;
$WinClass = new Win32::GUI::Class(
-name => "test",
-visual => 1,
);
$W = new Win32::GUI::Window(
-title => "test timer",
-left => 0,
-top => 0,
-minsize => [50,40],
-width => 50,
-height => 40,
-style => WS_OVERLAPPEDWINDOW,
-name => "Window",
-class => $WinClass,
) or die "Couldn't create W Window";
my $i=0;
$t1 = $W->AddTimer('T', 1000);
Win32::GUI::Dialog();
#-------------
sub T_Timer {
print "$i\n";
$i++;
}
__end__
----------------------------------------------------------------
Jon S. Miller (a.k.a. Hoff)
Member of Technical Staff, Milgo Solutions, Inc.
1619 N. Harrison Pkwy, MS D108, Sunrise, FL, USA 33323-2802
email: [EMAIL PROTECTED]
microsoft mail: [EMAIL PROTECTED]
voice: (954) 846-6619
fax: (954) 846-3244
----------------------------------------------------------------
