jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add croak(Nullch) again and propagate exception as needed, please jason, check this one

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8341 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-10 01:06:38 +00:00
commit e7bc3f34de
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
SWIG/Source/Modules/perl5.cxx
View file

@ -726,9 +726,13 @@ public:
"XSRETURN(argvi);\n",
"fail:\n",
cleanup,
"croak(\"\");\n"
"XSRETURN(0);\n"
"}\n",
"if (SvTRUE( GvSV(PL_errgv))) {\n"
" croak(SvPV(GvSV(PL_errgv), PL_na)); /* propagate exception */\n",
"} else {\n"
" sv_setpv(GvSV(PL_errgv), \"TRUE\");\n"
" croak(Nullch);\n"
"};\n"
"XSRETURN(0); }\n"
"}\n",
NIL);