diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 3 | ||||
| -rw-r--r-- | Perl/Zinc/Trace.pm | 3 | ||||
| -rw-r--r-- | Perl/Zinc/TraceErrors.pm | 3 |
3 files changed, 9 insertions, 0 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 7f9e739..b12333c 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -9,6 +9,9 @@ #--------------------------------------------------------------------------- package ZincDebug; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + use strict 'vars'; use vars qw(@ISA @EXPORT @EXPORT_OK $WARNING $endoptions); use Carp; diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm index e9bb01c..ec284d8 100644 --- a/Perl/Zinc/Trace.pm +++ b/Perl/Zinc/Trace.pm @@ -24,6 +24,9 @@ package ZincTrace; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + use Tk; use strict; use Tk::Zinc::TraceUtils; diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm index 0d1e64f..95d9e08 100644 --- a/Perl/Zinc/TraceErrors.pm +++ b/Perl/Zinc/TraceErrors.pm @@ -27,6 +27,9 @@ package ZincTraceErrors; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + use Tk; use strict; use Tk::Zinc::TraceUtils; |