File limal-1.6.3-swig.diff of Package limal
--- ./typemaps/blocxx_exceptions.i.orig 2012-06-06 15:32:15.000000000 +0000
+++ ./typemaps/blocxx_exceptions.i 2012-06-06 15:33:28.000000000 +0000
@@ -55,7 +55,7 @@ LIMAL_croak(SWIG_MAYBE_PERL_OBJECT const
LIMAL_buildExceptionHash(hash, e);
#endif
- sv_setsv(perl_get_sv("@", TRUE), newRV_noinc((SV*)hash));
+ sv_setsv(perl_get_sv("@", TRUE), sv_bless(newRV_noinc((SV*)hash), gv_stashpv("LIMAL::Exception", GV_ADD)));
}
#define LIMAL_exception(a) { LIMAL_croak(a); SWIG_fail; }
@@ -72,7 +72,7 @@ LIMAL_croak2(SWIG_MAYBE_PERL_OBJECT cons
value = newSVpv(e.what(), 0);
hv_store(hash, "message", 7, value, 0);
- sv_setsv(perl_get_sv("@", TRUE), newRV_noinc((SV*)hash));
+ sv_setsv(perl_get_sv("@", TRUE), sv_bless(newRV_noinc((SV*)hash), gv_stashpv("LIMAL::Exception", GV_ADD)));
}
#define LIMAL_exception2(a) { LIMAL_croak2(a); SWIG_fail; }