$f = eval { loadPari($meth) }; return $f if defined $f; return; #### $SIG{__DIE__} = sub { # propagate the die if we're under an eval (defined($^S) && !$^S) or die(@_); # now do the real stuff ... };