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 */