diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg
index 3e5c7e3d2..7d004335f 100644
--- a/Lib/perl5/perlrun.swg
+++ b/Lib/perl5/perlrun.swg
@@ -232,7 +232,7 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *
     } else {
       tmp = SvIV(tsv);
     }
-    voidptr = (void *)(SWIGINTPTR)tmp;
+    voidptr = INT2PTR(void *,tmp);
   } else if (! SvOK(sv)) {            /* Check for undef */
     *(ptr) = (void *) 0;
     return SWIG_OK;
diff --git a/Lib/swiglabels.swg b/Lib/swiglabels.swg
index 98e824eb7..f3a276906 100644
--- a/Lib/swiglabels.swg
+++ b/Lib/swiglabels.swg
@@ -81,11 +81,3 @@
 #   define SWIGSTDCALL
 # endif 
 #endif
-
-
-#if defined(_MSC_VER)
-# define SWIGINTPTR long
-#else
-# include <inttypes.h>
-# define SWIGINTPTR intptr_t
-#endif