diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 13:24:26 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 13:24:26 -0800 |
| commit | ba8182f85e239b53e3089116cd5a3d262a629667 (patch) | |
| tree | a9376caedb17c44c91cbfb794e784b171867c7fc /pp_sys.c | |
| parent | e5e154d26bf2e9766b86a93f4af780f8b005349e (diff) | |
| download | perl-ba8182f85e239b53e3089116cd5a3d262a629667.tar.gz | |
[perl #77388] Make stacked -T and -B work
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.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3309,6 +3309,8 @@ PP(pp_fttext) 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) { |