Select Code to Download

#!/usr/bin/perl --
use strict;
use warnings;
...
Diff = '400'
VM: 53420 < WS: 23880 VM: 21316 >      new f new p

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<>;}"