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

Fixed [ 852119 ] recursive inheritance in output .pm, perl5

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5460 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-12-02 21:57:41 +00:00
commit 16704c7262
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1144,7 +1144,11 @@ public:
}
/* If we are inheriting from a base class, set that up */
Printv(pm, "@ISA = qw( ",fullmodule, NIL);
Printv(pm, "@ISA = qw( ", NIL);
if (!compat || Cmp(fullmodule, fullclassname)) {
Printv(pm, fullmodule, NIL);
}
/* Handle inheritance */
List *baselist = Getattr(n,"bases");