use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature
# logic to add CORE::
+no warnings 'experimental::aggref';
use B::Deparse;
my $deparse = new B::Deparse;
unless ($got_text =~ /^{
package test;
+ BEGIN {\${\^WARNING_BITS} = "[^"]*"}
use strict 'refs', 'subs';
use feature [^\n]+
\Q$vars\E\(\) = (.*)
}
use warnings;
-no warnings 'experimental::aggref';
use strict;
use Test::More;
<a,>;
####
# [perl #91008]
+# CONTEXT no warnings 'experimental::aggref';
each $@;
keys $~;
values $!;
print "# not in Perl itself.\n";
}
if ($Okay{$test_num} && grep { $_ == $test_num } @problematical_tests) {
+ no warnings 'experimental::aggref';
# Round to nearest .1%
my $percent_fail = (int(.5 + (1000 * scalar(keys $Problem{$test_num})
/ scalar(@Locale))))
);
my %args_for = (
dbmopen => '%1,$2,$3',
- dbmclose => '%1',
+ (dbmclose => '%1',
+ keys =>
+ values =>
+ each =>)[0,1,2,1,3,1,4,1],
delete => '$1[2]',
exists => '$1[2]',
+ (push => '@1',
+ pop =>
+ shift =>
+ unshift =>
+ splice =>)[0,1,2,1,3,1,4,1,5,1],
);
my %desc = (
pos => 'match position',