diff --git a/SWIG/Lib/perl5/perl5.swg b/SWIG/Lib/perl5/perl5.swg
index 80d33a496..ddf188f81 100644
--- a/SWIG/Lib/perl5/perl5.swg
+++ b/SWIG/Lib/perl5/perl5.swg
@@ -81,7 +81,7 @@ extern void _SWIG_MakePtr(CPerlObj *, SV *, void *, swig_type_info *);
 SWIGRUNTIME(int) 
 SWIG_ConvertPtr(SV *sv, void **ptr, swig_type_info *_t)
 #else
-#define SWIG_ConvertPtr(a,b,c) _SWIG_GetConvert(pPerl,a,b,c)
+#define SWIG_ConvertPtr(a,b,c) _SWIG_ConvertPtr(pPerl,a,b,c)
 SWIGRUNTIME(int)
 _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t)
 #endif