From: Marcelo M. <mar...@us...> - 2005-10-31 09:40:59
|
Update of /cvsroot/swig/SWIG/Lib/perl5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30823/perl5 Modified Files: perltypemaps.swg Log Message: add missing SWIG_fail Index: perltypemaps.swg =================================================================== RCS file: /cvsroot/swig/SWIG/Lib/perl5/perltypemaps.swg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** perltypemaps.swg 25 Oct 2005 15:15:42 -0000 1.4 --- perltypemaps.swg 31 Oct 2005 09:40:51 -0000 1.5 *************** *** 80,84 **** %define %raise(obj, type, desc) sv_setsv(perl_get_sv("@", TRUE), obj); ! croak(Nullch) %enddef /* Include the unified typemap library */ --- 80,85 ---- %define %raise(obj, type, desc) sv_setsv(perl_get_sv("@", TRUE), obj); ! croak(Nullch); ! SWIG_fail %enddef /* Include the unified typemap library */ |