aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm')
-rw-r--r--Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
index 723f3ec..518a181 100644
--- a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
+++ b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
@@ -1,13 +1,13 @@
package SimpleRadarControls;
-# $Id$
+# $Id: SimpleRadarControls.pm 1156 2003-09-15 12:25:06Z mertz $
# This simple radar has been initially developped by P. Lecoanet <lecoanet@cena.fr>
# It has been adapted by C. Mertz <mertz@cena.fr> for demo purpose.
# Thanks to Dunnigan,Jack [Edm]" <Jack.Dunnigan@EC.gc.ca> for a bug correction.
use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
$top = 1;