diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/fillrule.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/fillrule.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl index 08ec781..d2fd7bb 100644 --- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl +++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: fillrule.pl 1551 2004-09-21 12:47:28Z mertz $ # This simple demo has been developped by C. Mertz <mertz@cena.fr> ####### This file has been largely inspired from figure 11-3 @@ -11,7 +11,7 @@ ####### contour, coords and clone method use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/); use Tk::Zinc; |