various updates

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@969 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/perl5/class/example.pl

@@ -22,10 +22,8 @@ print "\nA total of $example::Shape_nshapes shapes were created\n";
 
 # Set the location of the object
 
-# Notice how we can do this using functions specific to
-# the 'Circle' class.
-example::Circle_x_set($c, 20);
-example::Circle_y_set($c, 30);
+example::Shape_x_set($c, 20);
+example::Shape_y_set($c, 30);
 
 # Now use the same functions in the base class
 example::Shape_x_set($s,-10);

SWIG/Examples/perl5/variables/example.i

@@ -27,10 +27,10 @@ extern Point            pt;
 
 /* Some read-only variables */
 
-%readonly
+%readonly {
 extern int  status;
 extern char path[256];
-%readwrite
+}
 
 /* Some helper functions to make it easier to test */
 extern void  print_vars();