Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    };
    
    print "Eval OK\n";
    
  2. or download this
    #!/usr/bin/perl -w
    
    use strict;
    ...
        print "Unsafe code detected: $@";
        print "At: $stack";
    }
    
  3. or download this
    bash$ perl safe2.pl 1 
    Trying: 1
    ...
        main::__ANON__(** Incomplete caller override detected; @DB::args w
    +ere not set **) called at /usr/share/perl/5.14/Safe.pm line 358
        eval {...} called at /usr/share/perl/5.14/Safe.pm line 358
        Safe::reval(** Incomplete caller override detected; @DB::args were
    + not set **) called at safe2.pl line 26
    
  4. or download this
    bash$ perl safe2.pl 1 padany const leaveeval lineseq
    Trying: 1
    1