Bug #127073 for bareword-filehandles: Somehow, the lack of bareword filehandles causes a -e test to fail

"chohag@jtan.com via RT" <bug-bareword-filehandles@rt.cpan.org> writes: Show quoted text
This is because the code that sets the flags on the stacked filetest ops uses `PL_check[kidtype] == Perl_ck_ftst` to see if the child op is another filetest op, so any hooking of the check function breaks that. Looks like I'll just have to disable the protection for filetest ops :( - ilmari -- - Twitter seems more influential [than blogs] in the 'gets reported in the mainstream press' sense at least. - Matt McLeod - That'd be because the content of a tweet is easier to condense down to a mainstream media article. - Calle Dybedahl

I just ran into this bug in a bigger application. It was a little annoying to track down because the breakage doesn't respect lexical scoping. Even if some other module elsewhere loads bareword::filehandles, it still breaks stacked file tests in other files. Quick reproducer: % perl -e '{ use bareword::filehandles (); } -d -r "." or die' Died at -e line 1. Given that this breaks (otherwise working) code in quite sneaky ways, I'd much prefer imperfect protection from bareword filehandles if it keeps file tests working. The difference can be seen in the generated optrees: % perl -MO=Concise -e '{ use bareword::filehandles (); } -d -r "." or die' d <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 168 -e:1) v:{ ->3 5 <2> leaveloop vK/2 ->6 3 <{> enterloop(next->5 last->5 redo->4) v ->4 4 <0> stub v ->5 6 <;> nextstate(main 168 -e:1) v:{ ->7 - <1> null vK/1 ->d a <|> or(other->b) vK/1 ->d 9 <1> ftdir sK/1 ->a 8 <1> fteread sK/1 ->9 7 <$> const(PV ".") s ->8 c <@> die[t1] vK ->d b <0> pushmark s ->c -e syntax OK What it should be: % perl -MO=Concise -e '{ ; } -d -r "." or die' d <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 2 -e:1) v:{ ->3 5 <2> leaveloop vK/2 ->6 3 <{> enterloop(next->5 last->5 redo->4) v ->4 4 <0> stub v ->5 6 <;> nextstate(main 2 -e:1) v:{ ->7 - <1> null vK/1 ->d a <|> or(other->b) vK/1 ->d 9 <1> ftdir sK/FTSTACKED,1 ->a 8 <1> fteread sK/FTSTACKING,1 ->9 7 <$> const(PV ".") s ->8 c <@> die[t1] vK ->d b <0> pushmark s ->c -e syntax OK -- Lukas Mai (Software Developer) Jochen Schweizer Technology Solutions GmbH, München Amtsgericht München, HRB 203111 Geschäftsführer: Lars Brinkmann; Prokurist: Herbert Leitz