From 535b8e7520e5523e6bf4c2d989f43fb5b362f64b Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Mon, 31 Oct 2005 09:40:51 +0000
Subject: [PATCH] add missing SWIG_fail

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7756 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perltypemaps.swg | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SWIG/Lib/perl5/perltypemaps.swg b/SWIG/Lib/perl5/perltypemaps.swg
index 974a7c4b0..050791c56 100644
--- a/SWIG/Lib/perl5/perltypemaps.swg
+++ b/SWIG/Lib/perl5/perltypemaps.swg
@@ -79,7 +79,8 @@
 /* raise exception */
 %define %raise(obj, type, desc)
   sv_setsv(perl_get_sv("@", TRUE), obj); 
-  croak(Nullch) %enddef
+  croak(Nullch);
+  SWIG_fail %enddef
 
 /* Include the unified typemap library */
 %include <typemaps/swigtypemaps.swg>