mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

ck_open: report bareword dup handles under no feature bareword_filehandles

Browse Source
This commit is contained in:
Tony Cook 2024-09-04 11:16:03 +10:00
parent da66962fea
commit 2fe89a7e26
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
op.c
View File

@ -13487,8 +13487,11 @@ Perl_ck_open(pTHX_ OP *o)
(oa = OpSIBLING(first)) && /* The fh. */
(oa = OpSIBLING(oa)) && /* The mode. */
S_is_dup_mode(oa) && /* A dup open. */
(last == OpSIBLING(oa))) /* The bareword. */
last->op_private &= ~OPpCONST_STRICT;
(last == OpSIBLING(oa))) { /* The bareword. */
if (!FEATURE_BAREWORD_FILEHANDLES_IS_ENABLED)
no_bareword_filehandle(SvPVX(cSVOPx_sv(last)));
last->op_private &= ~OPpCONST_STRICT;
}
}
{
/* mark as special if filename is a literal undef */

12
t/lib/feature/bareword_filehandles
View File

@ -556,3 +556,15 @@ Beta
stdout
>Delta
>Epsilon
########
# NAME bareword handle in open dup handle calls
use strict;
open BAREWORD, ">&", STDOUT;
open my $fh2, ">&", BAREWORD;
no feature "bareword_filehandles";
open my $fh3, ">&", STDOUT;
open my $fh4, ">&", BAREWORD;
EXPECT
OPTIONS fatal
Bareword filehandle "BAREWORD" not allowed under 'no feature "bareword_filehandles"' at - line 6.
Execution of - aborted due to compilation errors.