aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
diff options
context:
space:
mode:
authormertz2003-09-15 12:25:06 +0000
committermertz2003-09-15 12:25:06 +0000
commit95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b (patch)
tree45cf09c86534821acb8563c9656143442f9c8508 /Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
parent33be41530ab82b852aa9aa039b82055680c7ba27 (diff)
downloadtkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.zip
tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.gz
tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.bz2
tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.xz
adding a $VERSION variable to conform CPAN requirement
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/MagicLens.pl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/MagicLens.pl3
1 files changed, 3 insertions, 0 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
index dc844e3..0151de5 100644
--- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
@@ -14,6 +14,9 @@
# $Id:
#-----------------------------------------------------------------------------------
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
use Tk;
use Tk::Zinc;
use Tk::Zinc::Graphics;