diff options
| author | mertz | 2004-05-07 16:52:34 +0000 |
|---|---|---|
| committer | mertz | 2004-05-07 16:52:34 +0000 |
| commit | 80ed7597c32a1d2836615f91cada00873a564e89 (patch) | |
| tree | 586cca40fc36125fd2e23129875ed0ebd767aa60 | |
| parent | 9f0d489e9cda59a8ed026be96fa56f9ecc1a33f7 (diff) | |
| download | tkzinc-80ed7597c32a1d2836615f91cada00873a564e89.zip tkzinc-80ed7597c32a1d2836615f91cada00873a564e89.tar.gz tkzinc-80ed7597c32a1d2836615f91cada00873a564e89.tar.bz2 tkzinc-80ed7597c32a1d2836615f91cada00873a564e89.tar.xz | |
correcting some export bugs
| -rw-r--r-- | Perl/Zinc/TraceUtils.pm | 7 |
1 files 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; |