diff options
Diffstat (limited to 't/io/open.t')
| -rw-r--r-- | t/io/open.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/io/open.t b/t/io/open.t index 696ba98acd..e06fc8e394 100644 --- a/t/io/open.t +++ b/t/io/open.t @@ -10,7 +10,7 @@ $| = 1; use warnings; use Config; -plan tests => 120; +plan tests => 121; my $Perl = which_perl(); @@ -233,6 +233,10 @@ like( $@, qr/Bad filehandle:\s+$afile/, ' right error' ); # used to try to open a file [perl #17830] ok( open(my $stdin, "<&", fileno STDIN), 'dup fileno(STDIN) into lexical fh') or _diag $!; + + fileno(STDIN) =~ /(.)/; + ok open($stdin, "<&", $1), 'open ... "<&", $magical_fileno', + || _diag $!; } SKIP: { |