$SIG{__WARN__} = sub {
    warn @_;
    my $i = 0;
    while (my($pkg, $file, $line) = caller($i++)) {
      warn "  package $pkg, file $file, line $line\n";
    }
  };
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation. Donate to TPF!
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.