diff options
| -rw-r--r-- | pp_sys.c | 2 | ||||
| -rw-r--r-- | t/op/filetest.t | 10 |
2 files changed, 10 insertions, 2 deletions
@@ -3067,7 +3067,7 @@ S_try_amagic_ftest(pTHX_ char chr) { SV *const arg = *PL_stack_sp; assert(chr != '?'); - if (!(PL_op->op_private & OPpFT_STACKING)) SvGETMAGIC(arg); + if (!(PL_op->op_private & OPpFT_STACKED)) SvGETMAGIC(arg); if (SvAMAGIC(arg)) { diff --git a/t/op/filetest.t b/t/op/filetest.t index fe9724c59a..7c471c050c 100644 --- a/t/op/filetest.t +++ b/t/op/filetest.t @@ -9,7 +9,7 @@ BEGIN { set_up_inc(qw '../lib ../cpan/Perl-OSType/lib'); } -plan(tests => 57 + 27*14); +plan(tests => 58 + 27*14); if ($^O =~ /MSWin32|cygwin|msys/ && !is_miniperl) { require Win32; # for IsAdminUser() @@ -385,3 +385,11 @@ SKIP: { ok(!-f "TEST\0-", '-f on name with \0'); ok(!-r "TEST\0-", '-r on name with \0'); } + +{ + # github #18293 + "" =~ /(.*)/; + my $x = $1; # call magic on $1, setting the pv to "" + "test.pl" =~ /(.*)/; + ok(-f -r $1, "stacked handles on a name with magic"); +} |