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

cleanup up comment spelling

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8033 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jason Stewart 2005-12-22 08:11:40 +00:00
commit c9da8bf63e
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Lib/perl5/perlrun.swg
View file

@ -250,22 +250,23 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *
} else { } else {
*ptr = voidptr; *ptr = voidptr;
} }
/* /*
DISOWN implementation: we need a perl guru to check this one. * DISOWN implementation: we need a perl guru to check this one.
*/ */
if (tsv && (flags & SWIG_POINTER_DISOWN)) { if (tsv && (flags & SWIG_POINTER_DISOWN)) {
/* /*
almost copy paste code from bellow SWIG_POINTER_OWN setting * almost copy paste code from below SWIG_POINTER_OWN setting
*/ */
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);
/* /*
To set ownership (see bellow), an newSViv(1) entry is added. * To set ownership (see below), a newSViv(1) entry is added.
Hence, to remove ownership, we delete the entry. * Hence, to remove ownership, we delete the entry.
*/ */
if (hv_exists_ent(hv, obj, 0)) { if (hv_exists_ent(hv, obj, 0)) {
hv_delete_ent(hv, obj, 0, 0); hv_delete_ent(hv, obj, 0, 0);
} }