Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl

...
local $SIG{__WARN__}= sub {};
warn '$SIG{__WARN__} was set to sub {};!';  <=== doesn't appear
};
  2. or download this
    $ perl SIGWARN.pl
$SIG{__WARN__} was set to "IGNORE"! at SIGWARN3.pl line 8.
$