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