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;
|
||
|
|
}
|