Help for this page

Select Code to Download


  1. or download this
    $SIG{'__WARN__'} = sub { die @_ } if $die_on_error;
warn "foooooo";
  2. or download this
    $SIG{'__WARN__'} = sub { die @{$_[0]} if ref $_[0] eq 'ARRAY'; warn @_
+; } if $die_on_error;
warn "foooooo"; # never dies
warn ["foooooo"]; # sometimes dies