diff options
author | etienne | 2004-04-29 08:26:25 +0000 |
---|---|---|
committer | etienne | 2004-04-29 08:26:25 +0000 |
commit | 7c2cfae4100d68ee55b17e1b77d4e90ee616b241 (patch) | |
tree | 8240b6239bd3a52ce13cde8265c69e0b60ac4fcf /Perl/Zinc/TraceErrors.pm | |
parent | 931aae21dac8661c903f3e177a7503632c5cff61 (diff) | |
download | tkzinc-7c2cfae4100d68ee55b17e1b77d4e90ee616b241.zip tkzinc-7c2cfae4100d68ee55b17e1b77d4e90ee616b241.tar.gz tkzinc-7c2cfae4100d68ee55b17e1b77d4e90ee616b241.tar.bz2 tkzinc-7c2cfae4100d68ee55b17e1b77d4e90ee616b241.tar.xz |
suppress warnings
Diffstat (limited to 'Perl/Zinc/TraceErrors.pm')
-rw-r--r-- | Perl/Zinc/TraceErrors.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 = "[1m"; my $_bold = "[m"; - 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; |