From f24ed65e9418345d3d157185db4dfbca43f565d4 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Fri, 10 Feb 2006 16:37:14 +0000 Subject: [PATCH] perl_get_sv is deprecated git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8773 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/perl5/perlinit.swg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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);