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;