Help for this page

Select Code to Download

Select or download this

sub Something
{
...
  # catch
  HandleEvalError( $@ ) if $@;
}

Select or download this

BEGIN{ $SIG{__DIE__} = \&FatalErr }

# Real problem if compile fails before getting here.
sub FatalErr { # do stuff, maybe print @_ or something.
}