From 10be90622f4c5d7452ee81a14328cf7839d6e60a Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 21 Sep 2004 12:45:38 +0000
Subject: using a package name to avoid name space wcollision with other demos

---
 Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Perl/demos')

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+)/);
 
-- 
cgit v1.1