diff options
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index f124e8dded..5ba0fdacf9 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -149,14 +149,15 @@ like $@, qr/Can't declare scalar dereference in "my"/; my @code = qw(lvalue method); -my @other = qw(shared unique); -my @deprecated = qw(locked); +my @other = qw(shared); +my @deprecated = qw(locked unique); my %valid; $valid{CODE} = {map {$_ => 1} @code}; $valid{SCALAR} = {map {$_ => 1} @other}; $valid{ARRAY} = $valid{HASH} = $valid{SCALAR}; my %deprecated; $deprecated{CODE} = { locked => 1 }; +$deprecated{ARRAY} = $deprecated{HASH} = $deprecated{SCALAR} = { unique => 1 }; our ($scalar, @array, %hash); foreach my $value (\&foo, \$scalar, \@array, \%hash) { |