Select Code to Download

$@= "Before";
my $end= "None";
...
    $end= $@;
};
print "($end)\n";

use strict;
use warnings;
...
1,0,DoNotLeak,Before   ,,
0,1,None     ,None     ,DoNotHide
1,1,None     ,None     ,DoNotHide

1..12
# Running under perl version 5.008008 for MSWin32
...
not ok 12
# Test 12 got: "" (- at line 32 fail #4)
#    Expected: "DoNotHide\n" (local:1 die:1 3)