diff options
author | Tony Cook <tony@develop-help.com> | 2020-11-10 15:50:27 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2020-11-11 23:36:17 +0000 |
commit | f877e124a20d4f94c82c36e6b7a99b4e9663e204 (patch) | |
tree | 4ed7b1f43cc6f6ccd919804bee5ccba76eae2f04 /pp_sys.c | |
parent | 55d39ade3808b7087ce5a23329f238141c066990 (diff) | |
download | perl-f877e124a20d4f94c82c36e6b7a99b4e9663e204.tar.gz |
fetch magic on the first stacked filetest, not the last
fixes #18293
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3067,7 +3067,7 @@ S_try_amagic_ftest(pTHX_ char chr) { SV *const arg = *PL_stack_sp; assert(chr != '?'); - if (!(PL_op->op_private & OPpFT_STACKING)) SvGETMAGIC(arg); + if (!(PL_op->op_private & OPpFT_STACKED)) SvGETMAGIC(arg); if (SvAMAGIC(arg)) { |