diagnostics - Perl compiler pragma to force verbose warning diagnostics
-splain - standalone program to do the same thing
+splain - filter to produce verbose descriptions of perl warning diagnostics
=head1 SYNOPSIS
enable diagnostics;
disable diagnostics;
-Aa a program:
+As a program:
perl program 2>diag.out
splain [-v] [-p] diag.out
=cut
use strict;
-use 5.6.0;
+use 5.006;
use Carp;
our $VERSION = 1.1;
shift;
$^W = 1; # yup, clobbered the global variable;
# tough, if you want diags, you want diags.
- return if $SIG{__WARN__} eq \&warn_trap;
+ return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap);
for (@_) {