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; }
openSUSE Build Service is sponsored by