aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/Tk/demos/zinc_lib/contours.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/contours.pl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/contours.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/contours.pl b/Perl/demos/Tk/demos/zinc_lib/contours.pl
index db0b960..ba54520 100644
--- a/Perl/demos/Tk/demos/zinc_lib/contours.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id$
+# $Id: contours.pl 1156 2003-09-15 12:25:06Z mertz $
# This simple demo has been developped by C. Mertz <mertz@cena.fr>
package contours; # for avoiding symbol collision between different demos
@@ -10,7 +10,7 @@ use Tk::Zinc;
use strict;
use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
my $mw = MainWindow->new();