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/SWIG@8342 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-10 02:48:01 +00:00
commit 5b113061c2

View file

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