diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2016-05-27 08:36:34 +0100 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2016-05-28 00:45:24 +0100 |
commit | 7ead141aa9b69ad906c285f44ba31bd475bddbe0 (patch) | |
tree | 1d82d2648430544bf42fe7f1b625fcfbc15dfdaa /Source | |
parent | 1e718c2ad021e296e5653247f0caaf42b6cb1275 (diff) | |
download | swig-7ead141aa9b69ad906c285f44ba31bd475bddbe0.tar.gz |
Fix unused variable warning in Perl wrappers
Diffstat (limited to 'Source')
-rw-r--r-- | Source/Modules/perl5.cxx | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx index 9182ce46b..406568b16 100644 --- a/Source/Modules/perl5.cxx +++ b/Source/Modules/perl5.cxx @@ -2130,6 +2130,8 @@ public: String *cres = SwigType_lstr(returntype, "c_result"); Printf(w->code, "%s;\n", cres); Delete(cres); + } + if (!ignored_method) { String *pres = NewStringf("SV *%s", Swig_cresult_name()); Wrapper_add_local(w, Swig_cresult_name(), pres); Delete(pres); |