Help for this page

Select Code to Download


  1. or download this
    $EXIT = ~0
END { $? and $? = $EXIT; }
sub xdie { $EXIT = shift; die @_; }

xdie 16, "argh";
  2. or download this
    sub xdie { $! = shift; die $@; }

xdie 16, "argh";