comment on

Umm

I think something went wrong , things seem different from what I remember and from what it apparently is, I'm unsure of stuff now

Consider this program

#!/usr/bin/perl --
use strict;
use warnings;

use Wx;
use Devel::Leak;
use Scalar::Util;;

Main( @ARGV );
exit( 0 );
sub Main {
    my $app = Wx::SimpleApp->new;
    my $frame = Wx::Frame->new( undef, -1, "", );
    $frame->SetBackgroundColour( Wx::wxBLACK() );
    $frame->SetSizer( Wx::BoxSizer->new( Wx::wxVERTICAL() ) );
    my $text = Wx::TextCtrl->new(
        $frame, -1,
        join( ' ', "\n", Perl => $], Wx => $Wx::VERSION, Wx::wxVERSION
+_STRING, "\n" ),
        [ -1, -1 ],
        [ -1, -1 ],
        Wx::wxTE_MULTILINE()
    );
    my $b1 = Wx::Button->new( $frame , -1, "new f new p", );
    my $b2 = Wx::Button->new( $frame , -1, "new f child p", );
    my $b3 = Wx::Button->new( $frame , -1, "new f child p destroy", );
    my $b4 = Wx::Button->new( $frame , -1, "new f weaken child p destr
+oy", );
    my $b5 = Wx::Button->new( $frame , -1, "new f weaken circle child 
+p destroy", );
    Wx::Event::EVT_BUTTON( $frame, $b1, sub {my $count1 =  Devel::Leak
+::NoteSV(my $handle); for(1..100){ Wx::Panel->new ; Wx::Frame->new( $
+frame ,-1,"goner" ); } my $count2 =  Devel::Leak::CheckSV($handle); $
+text->AppendText( join '', "Count1 = '",$count1,"'\n", "Count2 = '",$
+count2,"'\n", "Diff = '",$count2-$count1,"'\n" ); $text->AppendText( 
+psmem('new f new p') ); } );
    Wx::Event::EVT_BUTTON( $frame, $b2, sub {my $count1 =  Devel::Leak
+::NoteSV(my $handle); for(1..100){ Wx::Panel->new( Wx::Frame->new( $f
+rame ,-1,"goner"  ) ); } my $count2 =  Devel::Leak::CheckSV($handle);
+ $text->AppendText( join '', "Count1 = '",$count1,"'\n", "Count2 = '"
+,$count2,"'\n", "Diff = '",$count2-$count1,"'\n" ); $text->AppendText
+( psmem('new f child p') ); } );
    Wx::Event::EVT_BUTTON( $frame, $b3, sub {my $count1 =  Devel::Leak
+::NoteSV(my $handle); for(1..100){ my $f = Wx::Frame->new( $frame ,-1
+,"goner"  ) ; Wx::Panel->new( $f )->Destroy; $f->Destroy; } my $count
+2 =  Devel::Leak::CheckSV($handle); $text->AppendText( join '', "Coun
+t1 = '",$count1,"'\n", "Count2 = '",$count2,"'\n", "Diff = '",$count2
+-$count1,"'\n" ); $text->AppendText( psmem('new f child p destroy') )
+; } );
    Wx::Event::EVT_BUTTON( $frame, $b4, sub {my $count1 =  Devel::Leak
+::NoteSV(my $handle); for(1..100){ my $f = Wx::Frame->new( ($frame ),
+-1,"goner"  ); my $p = Wx::Panel->new( Scalar::Util::weaken($f) ); $p
+->Destroy;  $f->Destroy; undef $p; undef $f; } my $count2 =  Devel::L
+eak::CheckSV($handle); $text->AppendText( join '', "Count1 = '",$coun
+t1,"'\n", "Count2 = '",$count2,"'\n", "Diff = '",$count2-$count1,"'\n
+" ); $text->AppendText( psmem('new f weaken child p destroy') ); } );
    Wx::Event::EVT_BUTTON( $frame, $b5, sub {my $count1 =  Devel::Leak
+::NoteSV(my $handle); for(1..100){ my $f = Wx::Frame->new( ($frame ),
+-1,"goner"  ); my $p = Wx::Panel->new( Scalar::Util::weaken($f) ); $f
+->{p}=Scalar::Util::weaken($p); $p->Destroy;  $f->Destroy; undef $p; 
+undef $f; } my $count2 =  Devel::Leak::CheckSV($handle); $text->Appen
+dText( join '', "Count1 = '",$count1,"'\n", "Count2 = '",$count2,"'\n
+", "Diff = '",$count2-$count1,"'\n" ); $text->AppendText( psmem('new 
+f weaken circle child p destroy') ); } );
    $frame->GetSizer->Add( $text,  1, Wx::wxEXPAND() );
    $frame->GetSizer->Add( $_, 0,0 ) for $b1, $b2, $b3, $b4, $b5;
    $frame->Show(1);
    $app->SetTopWindow( $frame );
    $text->AppendText( psmem('MainLoop') );
    $app->MainLoop;
}

sub psmem {
    my ( $msg ) = @_;
    my @lines = qx{pslist -m $$       2>NUL}; ## http://live.sysintern
+als.com/pslist.exe
    shift @lines for 1..3;
    chomp @lines;
#~     print join "\n", @lines, "";
#~ Name                Pid      VM      WS    Priv Priv Pk   Faults   
+NonP Page
#~ perl               1052   25348    7220    4504    4512     1977   
+   2   33
    my %ps;
@ps{'Name',
'Pid',
'VM',
'WS',
'Priv',
'Priv Pk',
'Faults',
'NonP',
'Page' } = grep length, split /\s+/, shift @lines;
#~    Pri         Priority
#~    Thd         Number of Threads
#~    Hnd         Number of Handles
#~    VM          Virtual Memory
#~    WS          Working Set   ------ "Mem Usage" in taskmanager
#~    Priv        Private Virtual Memory   ------ "VM Size" in taskman
+ager
#~    Priv Pk     Private Virtual Memory Peak
#~    Faults      Page Faults
#~    NonP        Non-Paged Pool
#~    Page        Paged Pool
#~    Cswtch      Context Switches
#~     use DDS; Dump(\@lines , \%ps);
#~     print "VM: $ps{VM}   RSS: $ps{WS}   - $msg\n";    
    return "VM: $ps{VM} < WS: $ps{WS} VM: $ps{Priv} >      $msg\n";   
+ 

}


__END__

 Perl 5.016001 Wx 0.9922 wxWidgets 2.9.4 
VM: 53420 < WS: 21900 VM: 19624 >      MainLoop
Count1 = '34745'
Count2 = '35050'
Diff = '305'
VM: 53420 < WS: 23084 VM: 20632 >      new f weaken circle child p des
+troy
Count1 = '34750'
Count2 = '35050'
Diff = '300'
VM: 53420 < WS: 23088 VM: 20632 >      new f weaken circle child p des
+troy
Count1 = '34750'
Count2 = '35050'
Diff = '300'
VM: 53420 < WS: 23088 VM: 20632 >      new f weaken circle child p des
+troy
Count1 = '34750'
Count2 = '34950'
Diff = '200'
VM: 53420 < WS: 23088 VM: 20632 >      new f weaken child p destroy
Count1 = '34750'
Count2 = '34950'
Diff = '200'
VM: 53420 < WS: 23100 VM: 20640 >      new f child p destroy
Count1 = '34750'
Count2 = '35150'
Diff = '400'
VM: 53420 < WS: 23220 VM: 20728 >      new f child p
Count1 = '35150'
Count2 = '35550'
Diff = '400'
VM: 53420 < WS: 23444 VM: 20924 >      new f new p
Count1 = '35550'
Count2 = '35950'
Diff = '400'
VM: 53420 < WS: 23664 VM: 21120 >      new f new p
Count1 = '35950'
Count2 = '36350'
Diff = '400'
VM: 53420 < WS: 23880 VM: 21316 >      new f new p
[download]

"new f new p" is not supposed to leak 400 scalars

"new f child p" is not supposed to leak 400 scalars because the reference is supposed to be a weak reference

"new f child p destroy" is not supposed to leak 200 scalars, circular reference or no circular reference, Destroy is supposed to clean them all up

...

So maybe this is just taskmanager lying to me, or Devel::Cycle lying, or I'm really mis remember how this used to work or how its supposed to work, but I'm pretty sure this is a bug that needs to be reported to rt://Wx :) you should report it

Heck, consider these oneliners

perl -MWx -e"sub Wx::Frame::DESTROY { $_[0]->Destroy; } for(1..4){for(
+1..2000){ my $f =Wx::Frame->new; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; } scalar<>
+;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close;
+ } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close;
+ undef $f; } scalar<>;}"
perl -MWx -e"for(1..4){for(1..2000){ my $f =Wx::Frame->new; $f->Close;
+ $f->Destroy; undef $f; } scalar<>;}"
[download]

My winxp taskmanager tells me memory keeps increasing with these programs ... well its pretty much not supposed to

Dang

In reply to Re^11: Detecting memory leaks. by Anonymous Monk
in thread Detecting memory leaks. by Steve_BZ

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.