From 0dc02ca545e0318faa7506956c54a1672aaf7ea2 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Sat, 15 Dec 2001 20:14:00 -0500
Subject: [PATCH] Little warning nit Message-ID:
 <20011216061400.GC8900@blackrider>

p4raw-id: //depot/perl@13716
---
 lib/diagnostics.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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