diff --git a/SWIG/Lib/perl5/perlinit.swg b/SWIG/Lib/perl5/perlinit.swg
index 623766b27..68bf6d84f 100644
--- a/SWIG/Lib/perl5/perlinit.swg
+++ b/SWIG/Lib/perl5/perlinit.swg
@@ -39,7 +39,7 @@ XS(SWIG_init) {
     /* Install variables */
     for (i = 0; swig_variables[i].name; i++) {
       SV *sv;
-      sv = perl_get_sv((char*) swig_variables[i].name, TRUE | 0x2);
+      sv = get_sv((char*) swig_variables[i].name, TRUE | 0x2);
       if (swig_variables[i].type) {
 	SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
       } else {
@@ -51,7 +51,7 @@ XS(SWIG_init) {
     /* Install constant */
     for (i = 0; swig_constants[i].type; i++) {
       SV *sv;
-      sv = perl_get_sv((char*)swig_constants[i].name, TRUE | 0x2);
+      sv = get_sv((char*)swig_constants[i].name, TRUE | 0x2);
       switch(swig_constants[i].type) {
       case SWIG_INT:
 	sv_setiv(sv, (IV) swig_constants[i].lvalue);