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

Patch #1116431 Fix non member functions inadvertently being called instead of member functions.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7500 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-09-23 21:20:58 +00:00
commit 16d7c98196
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Source/Modules/perl5.cxx
View file

@ -1148,9 +1148,6 @@ public:
Printv(pm, "@ISA = qw(", NIL); Printv(pm, "@ISA = qw(", NIL);
if (!compat || Cmp(fullmodule, fullclassname)) {
Printv(pm, fullmodule, NIL);
}
/* Handle inheritance */ /* Handle inheritance */
List *baselist = Getattr(n,"bases"); List *baselist = Getattr(n,"bases");
@ -1167,6 +1164,12 @@ public:
b = Next(b); b = Next(b);
} }
} }
/* Module comes last */
if (!compat || Cmp(fullmodule, fullclassname)) {
Printv(pm, " ", fullmodule, NIL);
}
Printf(pm, " );\n"); Printf(pm, " );\n");
/* Dump out a hash table containing the pointers that we own */ /* Dump out a hash table containing the pointers that we own */