diff options
| author | mertz | 2003-09-15 12:25:06 +0000 |
|---|---|---|
| committer | mertz | 2003-09-15 12:25:06 +0000 |
| commit | 95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b (patch) | |
| tree | 45cf09c86534821acb8563c9656143442f9c8508 /Perl/demos/zinc-demos | |
| parent | 33be41530ab82b852aa9aa039b82055680c7ba27 (diff) | |
| download | tkzinc-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/zinc-demos')
| -rw-r--r-- | Perl/demos/zinc-demos | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 243c262..6846526 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -17,6 +17,9 @@ use vars qw/$BRAKES $LIGHTS $OIL $SOBER $TRANS $WIPERS/; use vars qw/$COLOR $FONT_STYLE $POINT_SIZE $DEMO_FILE %DEMO_DESCRIPTION/; use strict; +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + my $version = $Tk::Zinc::VERSION; print "Tkzinc version: $version\n"; |