aboutsummaryrefslogtreecommitdiff
path: root/Perl/Zinc.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/Zinc.pm')
-rw-r--r--Perl/Zinc.pm19
1 files changed, 18 insertions, 1 deletions
diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index 72b506e..4415f2b 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -1,3 +1,6 @@
+# $Id$
+# $Name$
+
package Tk::Zinc;
#require Tk;
@@ -10,7 +13,21 @@ Construct Tk::Widget 'Zinc';
use vars qw($VERSION);
-$VERSION = '1.000';
+
+# the following line initialize $VERSION to either the tag used for
+# CVS checkout -r tag_x_y_z
+# (typically at package creation) or the file revision
+# if no tag has been used typically $VERSION is initialized to
+# the file revision number
+my $TAG= q$Name$; # this line is automagically modified by CVS
+my $REVISION = q$Revision$ ; # this line is automagically modified by CVS
+($VERSION) = $TAG =~ /^\D*([\d_]+)/ ;
+if (defined $VERSION and $VERSION ne "_") {
+ $VERSION =~ s/_/\./g;
+}
+else {
+ $VERSION = $REVISION;
+}
bootstrap Tk::Zinc $Tk::VERSION;