Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. $SIG{__WARN__} = sub {die Warning
$SIG{__WARN__} = sub {die "Warning: $_[0]"};
warn;