From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 16 Dec 2001 01:14:00 +0000 (-0500)
Subject: Little warning nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dc02ca545e0318faa7506956c54a1672aaf7ea2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 (@_) {