Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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 drinking their drinks and smoking their pipes about the Monastery: (12)
As of 2016-10-27 12:31 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (362 votes). Check out past polls.