Change 13716 by jhi@alpha on 2001/12/16 14:17:10
Subject: [PATCH lib/diagnostics.pm] Little warning nit
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Sun, 16 Dec 2001 01:14:00 -0500
Message-ID: <20011216061400.GC8900@blackrider>
Affected files ...
.... //depot/perl/lib/diagnostics.pm#26 edit
Differences ...
==== //depot/perl/lib/diagnostics.pm#26 (xtext) ====
Index: perl/lib/diagnostics.pm
--- perl/lib/diagnostics.pm.~1~ Sun Dec 16 07:30:05 2001
+++ perl/lib/diagnostics.pm Sun Dec 16 07:30:05 2001
@@ -411,7 +411,7 @@
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 (@_) {
End of Patch.
