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/demos/Tk/demos/zinc_lib/counter.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Perl/demos/Tk/demos/zinc_lib/counter.pl') diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl index 5eded67..a0e9534 100644 --- a/Perl/demos/Tk/demos/zinc_lib/counter.pl +++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl @@ -1,14 +1,16 @@ #!/usr/bin/perl # This simple demo has been developped by C. Schlienger +package counter; # for avoiding symbol collision between different demos + +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; use strict; use constant; -package counter; # for avoiding symbol collision between different demos - my constant $PI=3.1416; my $boldfont = '-adobe-helvetica-bold-r-normal--20-240-100-100-p-182-iso8859-1'; -- cgit v1.1