Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Perl's Warn and Die Signals

by Adam (Vicar)
on Jan 11, 2001 at 12:11 UTC ( #51097=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    $SIG{__WARN__} = sub
        print STDOUT "Warning generated at line $loc[2] in $loc[1]:\n", @_
    +, "\n";
        return 1;
  2. or download this
    use warnings FATAL => qw( all );
  3. or download this
    $SIG{__WARN__} = sub { CORE::die "Warning:\n", @_, "\n" };
  4. or download this
    use Carp;
    sub CallStack
        shift @stack for 1..3; # Cover our tracks.
        return wantarray ? @stack : join "\n", @stack;
  5. or download this
    sub Something
      # catch
      HandleEvalError( $@ ) if $@;
  6. or download this
    BEGIN{ $SIG{__DIE__} = \&FatalErr }
    # Real problem if compile fails before getting here.
    sub FatalErr { # do stuff, maybe print @_ or something.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://51097]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2016-07-29 08:16 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (260 votes). Check out past polls.