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

Fix segfault when using -perl -v

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11070 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2009-01-15 07:29:28 +00:00
commit ff62288c37
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGES.current
View file

@ -1,3 +1,6 @@
Version 1.3.38 (in progress) Version 1.3.38 (in progress)
================================ ================================
2008-01-15: wsfulton
[Perl] Fix seg fault when running with -v option, reported by John Ky.

3
Source/Modules/perl5.cxx
View file

@ -1139,8 +1139,9 @@ public:
/* Do some work on the class name */ /* Do some work on the class name */
if (verbose > 0) { if (verbose > 0) {
String *modulename = Getattr(clsmodule, "name");
fprintf(stdout, "setclassname: Found sym:name: %s\n", Char(symname)); fprintf(stdout, "setclassname: Found sym:name: %s\n", Char(symname));
fprintf(stdout, "setclassname: Found module: %s\n", Char(clsmodule)); fprintf(stdout, "setclassname: Found module: %s\n", Char(modulename));
fprintf(stdout, "setclassname: No package found\n"); fprintf(stdout, "setclassname: No package found\n");
} }