diff options
author | mertz | 2002-04-23 14:37:14 +0000 |
---|---|---|
committer | mertz | 2002-04-23 14:37:14 +0000 |
commit | e7f511127435e3369b2b37c863fa27028f8c186c (patch) | |
tree | 67956beadffc364cfee6352944c7c7ef3ee5ce08 | |
parent | b05097e9938fe2f6ade661127f739dc4fc773f11 (diff) | |
download | tkzinc-e7f511127435e3369b2b37c863fa27028f8c186c.zip tkzinc-e7f511127435e3369b2b37c863fa27028f8c186c.tar.gz tkzinc-e7f511127435e3369b2b37c863fa27028f8c186c.tar.bz2 tkzinc-e7f511127435e3369b2b37c863fa27028f8c186c.tar.xz |
*** empty log message ***
-rw-r--r-- | Perl/Zinc.pm | 19 |
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; |