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

extra white space helps disambiguate the expression which some compilers/tools complain about - patch from David Fletcher

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11672 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2009-08-29 10:09:01 +00:00
commit 6edbe9cdc2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/perl5/perlrun.swg
View file

@ -310,7 +310,7 @@ SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_
*/ */
SV *obj = sv; SV *obj = sv;
HV *stash = SvSTASH(SvRV(obj)); HV *stash = SvSTASH(SvRV(obj));
GV *gv = *(GV**) hv_fetch(stash, "OWNER", 5, TRUE); GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
if (isGV(gv)) { if (isGV(gv)) {
HV *hv = GvHVn(gv); HV *hv = GvHVn(gv);
/* /*
@ -341,7 +341,7 @@ SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, i
stash=SvSTASH(SvRV(obj)); stash=SvSTASH(SvRV(obj));
if (flags & SWIG_POINTER_OWN) { if (flags & SWIG_POINTER_OWN) {
HV *hv; HV *hv;
GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE); GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
if (!isGV(gv)) if (!isGV(gv))
gv_init(gv, stash, "OWNER", 5, FALSE); gv_init(gv, stash, "OWNER", 5, FALSE);
hv=GvHVn(gv); hv=GvHVn(gv);