Help for this page

Select Code to Download


  1. or download this
    perl -we '$x = 1; $x = [$x] for 0 .. 0 + $ARGV[0]; $x = ();' 50000
  2. or download this
    ...
#78 0x080bd016 in Perl_sv_free ()
...
#91 0x080bd016 in Perl_sv_free ()
#92 0x080bcad5 in Perl_sv_clear ()
...
  3. or download this
    perl -we 'for (0 .. $ARGV[0]) { my $y = 1; my $x = \$y; $x = [$x] for 
+0 .. 1000; $y = $$x[0]; }; system "ps u $$"' 1000