Fix compiler warnings:

pp_ctl.c: In function `Perl_pp_return':
pp_ctl.c:2092: warning: 'retop' might be used uninitialized in this function
pp_ctl.c: In function `Perl_pp_last':
pp_ctl.c:2214: warning: 'nextop' might be used uninitialized in this function

diff --git a/pp_ctl.c b/pp_ctl.c
index 921363f..a629887 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2089,7 +2089,7 @@ PP(pp_return)
     PMOP *newpm;
     I32 optype = 0;
     SV *sv;
-    OP *retop;
+    OP *retop = NULL;
 
     const I32 cxix = dopoptosub(cxstack_ix);
 
@@ -2211,7 +2211,7 @@ PP(pp_last)
     I32 pop2 = 0;
     I32 gimme;
     I32 optype;
-    OP *nextop;
+    OP *nextop = NULL;
     SV **newsp;
     PMOP *newpm;
     SV **mark;