diff options
-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; |