ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/src/stable/0.9/contrib/perl/Porting/leakfinder.pl
(Generate patch)

Comparing stable/0.9/contrib/perl/Porting/leakfinder.pl (file contents):
Revision 9613 by laffer1, Sun Oct 1 16:03:07 2017 UTC vs.
Revision 9614 by laffer1, Wed Oct 4 14:13:25 2017 UTC

# Line 31 | Line 31 | for(`find .`) {
31           =~ s/\0/'."\\0".'/grid;
32      $prog = <<end;  
33              open oUt, ">&", STDOUT;
34 <            open STDOUT, ">/dev/null";
35 <            open STDIN, "</dev/null";
36 <            open STDERR, ">/dev/null";
34 >            open STDOUT, ">", "/dev/null";
35 >            open STDIN, "<", "/dev/null";
36 >            open STDERR, ">", "/dev/null";
37              \$unused_variable = '$q';
38              eval \$unused_variable while \$also_unused++ < 4;
39              print oUt sv_count, "\n";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines