From 0641b004b3490d7a08252cd64d3ac770887ab93a Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Tue, 10 Jan 2006 02:48:01 +0000
Subject: [PATCH] add croak(Nullch) again and propagate exception as needed,
 please jason, check this one

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

diff --git a/SWIG/Lib/perl5/perltypemaps.swg b/SWIG/Lib/perl5/perltypemaps.swg
index efed330c8..e24337ba3 100644
--- a/SWIG/Lib/perl5/perltypemaps.swg
+++ b/SWIG/Lib/perl5/perltypemaps.swg
@@ -80,8 +80,7 @@
 
 /* raise exception */
 %define %raise(obj, type, desc)
-  sv_setsv(perl_get_sv("@", TRUE), obj); 
-  croak(Nullch);
+  sv_setsv(GvSV(PL_errgv), obj); 
   SWIG_fail %enddef
 
 /* Include the unified typemap library */