From 80ed7597c32a1d2836615f91cada00873a564e89 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 7 May 2004 16:52:34 +0000
Subject: correcting some export bugs

---
 Perl/Zinc/TraceUtils.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
index d0c5c04..8a3bc76 100644
--- a/Perl/Zinc/TraceUtils.pm
+++ b/Perl/Zinc/TraceUtils.pm
@@ -4,12 +4,14 @@ use vars qw( $VERSION );
 ($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use Tk;
-use strict;
 use Tk::Font;
 use Tk::Photo;
-use vars qw(@EXPORT);
+
+require Exporter;
+@ISA = qw(Exporter);
 @EXPORT = qw(printItem printArray printList Item Array List);
 
+use strict;
 
 sub printItem {
     print &Item (@_);
@@ -102,6 +104,7 @@ sub List {
     
 } # end List
 
+
 1;
 
 
-- 
cgit v1.1