diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2009-01-15 07:29:28 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2009-01-15 07:29:28 +0000 |
commit | ff62288c37bc6460acd41345d40749c10afc726e (patch) | |
tree | 9e72502e56511e70156ec590044145c59f2dcc13 | |
parent | f2c57bd5089f48dbc51b35eb56f860c13d903d8c (diff) | |
download | swig-ff62288c37bc6460acd41345d40749c10afc726e.tar.gz |
Fix segfault when using -perl -v
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11070 626c5289-ae23-0410-ae9c-e8d60b6d4f22
-rw-r--r-- | CHANGES.current | 3 | ||||
-rw-r--r-- | Source/Modules/perl5.cxx | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/CHANGES.current b/CHANGES.current index a2ae90755..4f43526a1 100644 --- a/CHANGES.current +++ b/CHANGES.current @@ -1,3 +1,6 @@ Version 1.3.38 (in progress) ================================ +2008-01-15: wsfulton + [Perl] Fix seg fault when running with -v option, reported by John Ky. + diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx index 3a8821ac8..e454f5050 100644 --- a/Source/Modules/perl5.cxx +++ b/Source/Modules/perl5.cxx @@ -1139,8 +1139,9 @@ public: /* Do some work on the class name */ if (verbose > 0) { + String *modulename = Getattr(clsmodule, "name"); 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"); } |