jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

perl_get_sv is deprecated

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8773 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2006-02-10 16:37:14 +00:00
commit 206b37d5cf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/perl5/perlinit.swg
View file

@ -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);