diff options
Diffstat (limited to 't/op/coresubs.t')
-rw-r--r-- | t/op/coresubs.t | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/t/op/coresubs.t b/t/op/coresubs.t index 6fec5f4c75..c18fdcde93 100644 --- a/t/op/coresubs.t +++ b/t/op/coresubs.t @@ -166,18 +166,6 @@ $tests++; ok eval { *CORE::exit = \42 }, '[rt.cpan.org #74289] *CORE::foo is not accidentally made read-only'; -for my $word (qw<keys values each>) { - # mykeys() etc were aliased to \&CORE::keys etc above - my $code = qq{ - no warnings 'experimental::autoderef'; - my \$x = []; - () = my$word(\$x); - 'ok' - }; - $tests++; - is(eval($code), 'ok', "inlined $word() on autoderef array") or diag $@; -} - inlinable_ok($_, '$_{k}', 'on hash') for qw<delete exists>; |