diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-15 20:14:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-16 14:17:10 +0000 |
| commit | 0dc02ca545e0318faa7506956c54a1672aaf7ea2 (patch) | |
| tree | 4b10dc9985e0c044df83266c1d4418573033b65f /lib/diagnostics.pm | |
| parent | de522f7a1bfa5ad2ba28f7336c1cdb042ae4dc8d (diff) | |
| download | perl-0dc02ca545e0318faa7506956c54a1672aaf7ea2.tar.gz | |
Little warning nit
Message-ID: <20011216061400.GC8900@blackrider>
p4raw-id: //depot/perl@13716
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 031b08e156..c68fa3f79f 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -411,7 +411,7 @@ sub import { 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 (@_) { |