From 7c2cfae4100d68ee55b17e1b77d4e90ee616b241 Mon Sep 17 00:00:00 2001
From: etienne
Date: Thu, 29 Apr 2004 08:26:25 +0000
Subject: suppress warnings

---
 Perl/Zinc/TraceErrors.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl/Zinc')

diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm
index b88b5f4..e74f28a 100644
--- a/Perl/Zinc/TraceErrors.pm
+++ b/Perl/Zinc/TraceErrors.pm
@@ -44,7 +44,7 @@ BEGIN {
     my $bold = "";
     my $_bold = "";
     
-    if ($ZincTrace::on == 1) {
+    if (defined $ZincTrace::on and $ZincTrace::on == 1) {
 	print STDERR $bold."Tk::Zinc::TraceErrors: incompatible package Tk::Zinc::Trace is already ".
 	    "loaded".$_bold." (exit 1)\n";
 	exit 1;
-- 
cgit v1.1