diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-14 11:31:45 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-14 11:31:45 -0800 |
| commit | 34024f3519b60b2efca47c69c90d78a802538f8f (patch) | |
| tree | de26e70bbeb48c1630675a68c7a0ef4d6039235a /pp_sys.c | |
| parent | 711a39033e18c23e23b10bd69e998176f1b1f852 (diff) | |
| download | perl-34024f3519b60b2efca47c69c90d78a802538f8f.tar.gz | |
pp_sys.c: goto mustn’t skip initialisation
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |