diff --git a/Lib/perl5/perlinit.swg b/Lib/perl5/perlinit.swg
index cdb73d53a..b49040d26 100644
--- a/Lib/perl5/perlinit.swg
+++ b/Lib/perl5/perlinit.swg
@@ -28,6 +28,7 @@ extern "C"
 XS(SWIG_init) {
     dXSARGS;
     int i;
+    (void)items;
 
     SWIG_InitializeModule(0);
 
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);