Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  undef $extracts;
  print Devel::Leak::CheckSV($handle), "\n";
}
  2. or download this
    ~/tmp$ perl t.pl
28447
...
28647
28649
Out of memory!
  3. or download this
    Archive::Tar::_read_tar(/usr/local/share/perl/5.8.8/Archive/Tar.pm:318
+):
318: my $offset = eval { tell $handle } || 'unknown';
  DB<1> 
Out of memory!