add SWIG_fail to SWIG_expcetion macro

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

CHANGES.current

@@ -1,6 +1,10 @@
 Version 1.3.32 (in progress)
 ============================
 
+03/25/2007: wuzzeb (John Lenz)
+	    [perl5] Add SWIG_fail to the SWIG_exception macro.  Fixes a few problems reported
+	    on the mailing list.
+
 03/23/2007: wsfulton
             String copying patch from Josh Cherry reducing memory consumption by about 25%.
 

Lib/perl5/exception.i

@@ -1,5 +1,5 @@
 %include <typemaps/exception.swg>
 
 %insert("runtime") {
-  %define_as(SWIG_exception(code, msg), %block(%error(code, msg);))
+  %define_as(SWIG_exception(code, msg), %block(%error(code, msg); SWIG_fail; ))
 }