2 files changed, 3 insertions, 3 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index e27d637a76..b6c72e84cd 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2048,7 +2048,7 @@ PP(pp_last)
     register PERL_CONTEXT *cx;
     I32 pop2 = 0;
     I32 gimme;
-    I32 optype;
+    I32 optype = 0;
     OP *nextop;
     SV **newsp;
     PMOP *newpm;
diff --git a/pp_sys.c b/pp_sys.c
index e096478b3b..3d9f756312 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1318,8 +1318,8 @@ PP(pp_leavewrite)
     register IO * const io = GvIOp(gv);
     PerlIO * const ofp = IoOFP(io);
     PerlIO *fp;
-    SV **newsp;
-    I32 gimme;
+    SV **newsp = Nullsv;
+    I32 gimme = 0;
     register PERL_CONTEXT *cx;
     PERL_UNUSED_VAR(newsp);
     PERL_UNUSED_VAR(gimme);