diff options
| author | Joel Andersson <j.a.e.andersson@gmail.com> | 2016-07-02 19:05:42 -0500 |
|---|---|---|
| committer | Joel Andersson <j.a.e.andersson@gmail.com> | 2016-07-02 19:05:42 -0500 |
| commit | 3703053cbe25655e3e20d7ddc0f621c3e7c6d47d (patch) | |
| tree | d0b57df47e258ff9ff3d976c20630af91c3d4010 /Source/Modules/perl5.cxx | |
| parent | b5e75d1891a64000508b511e220483b0547f5428 (diff) | |
| parent | 36bbeb478dfcecc7739284cd454ada8b4cb96333 (diff) | |
| download | swig-3703053cbe25655e3e20d7ddc0f621c3e7c6d47d.tar.gz | |
Merge branch 'master' of https://github.com/swig/swig into matlab
Diffstat (limited to 'Source/Modules/perl5.cxx')
| -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); |