Help for this page

Select Code to Download


  1. or download this
    package OpenOrDie;
use strict; use warnings;
...
    
    return $fh;
}
  2. or download this
    use OpenOrDie;

my $FILE = Open('<',$filename);
  3. or download this
    eval {
   my $FILE = Open('<',$filename);
...
   warn("Cannot parse configuration; $@");
   $config{skip} = 1;
}