[Swig-cvs] SWIG/Examples/perl5/variables runme.pl,1.2,1.3

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Examples/perl5/variables
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31359

Modified Files:
	runme.pl 
Log Message:
catch read-onlye errors properly

Index: runme.pl
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/perl5/variables/runme.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** runme.pl	15 Jun 2004 20:12:20 -0000	1.2
--- runme.pl	23 Jan 2006 23:47:10 -0000	1.3
***************
*** 58,64 ****
  print "\nNow I'm going to try and modify some read only variables\n";
  
- print "     Tring to set 'path'\n";
- $example::path = "Whoa!";
  
  print "     Trying to set 'status'\n";
! $example::status = 0;
--- 58,73 ----
  print "\nNow I'm going to try and modify some read only variables\n";
  
  
  print "     Trying to set 'status'\n";
! eval { $example::status = 0; };
! if (!$@) {
!     die("status");
! }
! print "     get error for 'status'\n";
! 
! print "     Tring to set 'path'\n";
! eval { $example::path = "Whoa!";};
! if (!$@) {
!     die("path");
! }
! print "     get error for 'path'\n";