They just need to pick up the _ filehandle in stacked mode, like the
other ops (which actually rely on my_stat[_flags] to do it). This
apparently was forgotten when stacked filetests were added.
if (PL_op->op_flags & OPf_REF)
gv = cGVOP_gv;
+ else if (PL_op->op_private & OPpFT_STACKED)
+ gv = PL_defgv;
else sv = POPs, gv = MAYBE_DEREF_GV_nomg(sv);
if (gv) {
}
elsif ($count == 1) {
local $TODO;
- if ($op eq 'T' or $op eq 't' or $op eq 'B') {
+ if ($op eq 't') {
$TODO = "[perl #77388] stacked file test does not work with -$op";
}
is($m, "d", "-$op -e \$^X did not remove too many values from the stack");