Little warning nit

Message-ID: <20011216061400.GC8900@blackrider>

p4raw-id: //depot/perl@13716

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 031b08e..c68fa3f 100755 (executable)
--- 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 (@_) {