diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-09 06:30:03 -0800 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2014-01-14 09:33:01 -0500 |
| commit | 0953b66bdb6b9cd4da676d1614e87fe081b20a9c (patch) | |
| tree | 965f4ed80afcc8a81700f274392e1e8cf12a2a5f /t/op/kvhslice.t | |
| parent | ef40a5dd8380ca9dcbf40ccf6f706a4b5e25bbc6 (diff) | |
| download | perl-0953b66bdb6b9cd4da676d1614e87fe081b20a9c.tar.gz | |
Make key/push $scalar experimental
We need a better name for the experimental category, but I have not
thought of one, even after sleeping on it.
Diffstat (limited to 't/op/kvhslice.t')
| -rw-r--r-- | t/op/kvhslice.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/kvhslice.t b/t/op/kvhslice.t index 8acd0ab81c..7ee6d7d098 100644 --- a/t/op/kvhslice.t +++ b/t/op/kvhslice.t @@ -195,7 +195,7 @@ plan tests => 44; { my %h = 'a'..'b'; my %i = (foo => \%h); - no warnings 'syntax'; + no warnings 'syntax', 'experimental::aggref'; my ($k,$v) = each %i{foo=>}; is $k, 'a', 'key returned by each %hash{key}'; is $v, 'b', 'val returned by each %hash{key}'; |