From b52f5f03e5468bcde55f65e482318af946c8a554 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Fri, 9 Jan 2004 18:32:44 +0000
Subject: [PATCH] Fixed broken run script

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5609 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Examples/perl5/class/example.pl | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/SWIG/Examples/perl5/class/example.pl b/SWIG/Examples/perl5/class/example.pl
index 02e7a889b..f9fc47798 100644
--- a/SWIG/Examples/perl5/class/example.pl
+++ b/SWIG/Examples/perl5/class/example.pl
@@ -9,14 +9,14 @@ use example;
 # ----- Object creation -----
 
 print "Creating some objects:\n";
-$c = example::new_Circle(10);
+$c = examplec::new_Circle(10);
 print "    Created circle $c\n";
-$s = example::new_Square(10);
+$s = examplec::new_Square(10);
 print "    Created square $s\n";
 
 # ----- Access a static member -----
 
-print "\nA total of $example::Shape_nshapes shapes were created\n";
+print "\nA total of $examplec::Shape_nshapes shapes were created\n";
 
 # ----- Member data access -----
 
@@ -24,22 +24,22 @@ print "\nA total of $example::Shape_nshapes shapes were created\n";
 # Note: methods in the base class Shape are used since
 # x and y are defined there.
 
-example::Shape_x_set($c, 20);
-example::Shape_y_set($c, 30);
-example::Shape_x_set($s,-10);
-example::Shape_y_set($s,5);
+examplec::Shape_x_set($c, 20);
+examplec::Shape_y_set($c, 30);
+examplec::Shape_x_set($s,-10);
+examplec::Shape_y_set($s,5);
 
 print "\nHere is their current position:\n";
-print "    Circle = (",example::Shape_x_get($c),",", example::Shape_y_get($c),")\n";
-print "    Square = (",example::Shape_x_get($s),",", example::Shape_y_get($s),")\n";
+print "    Circle = (",examplec::Shape_x_get($c),",", examplec::Shape_y_get($c),")\n";
+print "    Square = (",examplec::Shape_x_get($s),",", examplec::Shape_y_get($s),")\n";
 
 # ----- Call some methods -----
 
 print "\nHere are some properties of the shapes:\n";
 foreach $o ($c,$s) {
       print "    $o\n";
-      print "        area      = ", example::Shape_area($o), "\n";
-      print "        perimeter = ", example::Shape_perimeter($o), "\n";
+      print "        area      = ", examplec::Shape_area($o), "\n";
+      print "        perimeter = ", examplec::Shape_perimeter($o), "\n";
   }
 # Notice how the Shape_area() and Shape_perimeter() functions really
 # invoke the appropriate virtual method on each object.
@@ -49,9 +49,9 @@ foreach $o ($c,$s) {
 print "\nGuess I'll clean up now\n";
 
 # Note: this invokes the virtual destructor
-example::delete_Shape($c);
-example::delete_Shape($s);
+examplec::delete_Shape($c);
+examplec::delete_Shape($s);
 
-print $example::Shape_nshapes," shapes remain\n";
+print $examplec::Shape_nshapes," shapes remain\n";
 print "Goodbye\n";