Help for this page

Select Code to Download


  1. or download this
    local $SIG{__WARN__} = sub {
       return if $_[0] =~ /^Deep recursion /;
    ...
       local $\;
       print STDERR $_[0];
    };
    
  2. or download this
    my $prev_handler = $SIG{__WARN__};
    local $SIG{__WARN__} = sub {
    ...
       local $SIG{__WARN__} = $prev_handler;
       warn($_[0]);
    };