f0c827cae5
Copy from devel:tools:building/swig based on submit request 37087 from user michal-m OBS-URL: https://build.opensuse.org/request/show/37087 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/swig?expand=0&rev=17
21 lines
785 B
Diff
21 lines
785 B
Diff
Index: swig-1.3.40/Lib/perl5/perlrun.swg
|
|
===================================================================
|
|
--- swig-1.3.40.orig/Lib/perl5/perlrun.swg 2009-08-14 23:05:06.000000000 +0200
|
|
+++ swig-1.3.40/Lib/perl5/perlrun.swg 2010-04-06 15:07:29.000000000 +0200
|
|
@@ -272,6 +272,7 @@ SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PE
|
|
} else if (! SvOK(sv)) { /* Check for undef */
|
|
*(ptr) = (void *) 0;
|
|
return SWIG_OK;
|
|
+#if PERL_VERSION < 12
|
|
} else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
|
|
if (!SvROK(sv)) {
|
|
*(ptr) = (void *) 0;
|
|
@@ -279,6 +280,7 @@ SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PE
|
|
} else {
|
|
return SWIG_ERROR;
|
|
}
|
|
+#endif
|
|
} else { /* Don't know what it is */
|
|
return SWIG_ERROR;
|
|
}
|