From e7f511127435e3369b2b37c863fa27028f8c186c Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 23 Apr 2002 14:37:14 +0000
Subject: *** empty log message ***

---
 Perl/Zinc.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'Perl')

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;
 
-- 
cgit v1.1