From 95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b Mon Sep 17 00:00:00 2001 From: mertz Date: Mon, 15 Sep 2003 12:25:06 +0000 Subject: adding a $VERSION variable to conform CPAN requirement --- Perl/Zinc/Graphics.pm | 3 +++ Perl/Zinc/Logo.pm | 6 ++++-- Perl/Zinc/Text.pm | 4 +++- Perl/Zinc/TraceUtils.pm | 3 +++ 4 files changed, 13 insertions(+), 3 deletions(-) (limited to 'Perl/Zinc') diff --git a/Perl/Zinc/Graphics.pm b/Perl/Zinc/Graphics.pm index e61c682..5495cb5 100644 --- a/Perl/Zinc/Graphics.pm +++ b/Perl/Zinc/Graphics.pm @@ -46,6 +46,9 @@ #----------------------------------------------------------------------------------- package Tk::Zinc::Graphics; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&buildZincItem diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm index 96d827b..486c904 100644 --- a/Perl/Zinc/Logo.pm +++ b/Perl/Zinc/Logo.pm @@ -1,4 +1,5 @@ -#!/usr/bin/perl +package Tk::Zinc::Logo; + #--------------------------------------------------------------- # # Module : Logo.pm @@ -10,7 +11,8 @@ # #--------------------------------------------------------------- -package Tk::Zinc::Logo; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); use strict; use Carp; diff --git a/Perl/Zinc/Text.pm b/Perl/Zinc/Text.pm index 2cf4fd2..63e9573 100644 --- a/Perl/Zinc/Text.pm +++ b/Perl/Zinc/Text.pm @@ -1,6 +1,8 @@ - package Tk::Zinc::Text; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + sub new { my $proto = shift; diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm index 07b0413..55714f9 100644 --- a/Perl/Zinc/TraceUtils.pm +++ b/Perl/Zinc/TraceUtils.pm @@ -1,5 +1,8 @@ package Tk::Zinc::TraceUtils; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + use Tk; use strict; use Tk::Font; -- cgit v1.1