diff options
author | mertz | 2004-09-21 12:45:38 +0000 |
---|---|---|
committer | mertz | 2004-09-21 12:45:38 +0000 |
commit | 10be90622f4c5d7452ee81a14328cf7839d6e60a (patch) | |
tree | 62780359c8b69bb06530d58ad9d27295cc217a18 /Perl/demos/Tk | |
parent | a597ee865698eed2151f995ce7d9470b698f6b12 (diff) | |
download | tkzinc-10be90622f4c5d7452ee81a14328cf7839d6e60a.zip tkzinc-10be90622f4c5d7452ee81a14328cf7839d6e60a.tar.gz tkzinc-10be90622f4c5d7452ee81a14328cf7839d6e60a.tar.bz2 tkzinc-10be90622f4c5d7452ee81a14328cf7839d6e60a.tar.xz |
using a package name to avoid name space wcollision with other demos
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl index 9e2a980..bc59863 100644 --- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl +++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl @@ -1,9 +1,11 @@ #!/usr/bin/perl -w -# $Id: curve_bezier.pl,v 1.1 2002/12/20 12:28:38 +# $Id$ # This simple demo has been developped by C. Mertz <mertz@cena.fr> ####### This file has been initially inspired from svg examples +package curveBezier; + use vars qw( $VERSION ); ($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); |