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@7500 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-09-23 21:20:58 +00:00
commit de19ddb6ee
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
SWIG/Source/Modules/perl5.cxx
View file

@ -1147,10 +1147,7 @@ public:
/* If we are inheriting from a base class, set that up */ /* If we are inheriting from a base class, set that up */
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 */