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/SWIG@5460 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-12-02 21:57:41 +00:00
commit a5717296e7
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Source/Modules/perl5.cxx
View file

@ -1144,7 +1144,11 @@ 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( ",fullmodule, 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");