Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

warn "blah blah warning\n";
warn "A thread exited...\n";
  2. or download this
    blah blah warning
  3. or download this
    perl -E '$SIG{__WARN__}=sub{say "handler";warn $_[0] if $_[0]!~/^A thr
+ead/}; warn "blah"; warn "A thread";'
handler
blah at -e line 1.
handler