Help for this page

Select Code to Download

Select or download this

local $SIG{__WARN__} = sub {
   return if $_[0] =~ /^Deep recursion /;
...
   local $\;
   print STDERR $_[0];
};

Select or download this

my $prev_handler = $SIG{__WARN__};
local $SIG{__WARN__} = sub {
...
   local $SIG{__WARN__} = $prev_handler;
   warn($_[0]);
};