Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: Unexpected result after localizing eval_error variable "$@" within "BEGIN" block (bugs)

by tye (Sage)
on Dec 26, 2007 at 20:55 UTC ( [id://659115] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $@= "Before";
    my $end= "None";
    ...
        $end= $@;
    };
    print "($end)\n";
    
  2. or download this
    use strict;
    use warnings;
    ...
    1,0,DoNotLeak,Before   ,,
    0,1,None     ,None     ,DoNotHide
    1,1,None     ,None     ,DoNotHide
    
  3. or download this
    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)