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

Fixed bizarre seg-fault in Perl5 module (I think).

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@812 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-09-03 19:04:52 +00:00
commit 1a1e64d919
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Source/Modules1.1/perl5.cxx
View file

@ -1820,7 +1820,9 @@ PERL5::cpp_inherit(char **baseclass, int) {
base_class = NewString(""); base_class = NewString("");
while (baseclass[i]) { while (baseclass[i]) {
/* See if this is a class we know about */ /* See if this is a class we know about */
bc = Char(is_shadow(baseclass[i])); String *b = NewString(baseclass[i]);
bc = Char(is_shadow(b));
Delete(b);
if (bc) { if (bc) {
if (have_first) Putc(' ', base_class); if (have_first) Putc(' ', base_class);
Printf(base_class,bc); Printf(base_class,bc);