pp_sys.c: goto mustn’t skip initialisation

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index d748693aaf..3611f51380 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2759,7 +2759,7 @@ PP(pp_stat)
 
     if (PL_op->op_flags & OPf_REF ? (gv = cGVOP_gv, 1)
                                   : !!(sv=POPs, gv = MAYBE_DEREF_GV(sv))) {
-	bool havefp = FALSE;
+	bool havefp;
 	if (PL_op->op_type == OP_LSTAT) {
 	    if (gv != PL_defgv) {
 	    do_fstat_warning_check:
@@ -2774,6 +2774,7 @@ PP(pp_stat)
 		Perl_croak(aTHX_ "The stat preceding lstat() wasn't an lstat");
 	}
 
+	havefp = FALSE;
 	if (gv != PL_defgv) {
 	    PL_laststype = OP_STAT;
 	    PL_statgv = gv;