diff options
| author | Vincent Pit <perl@profvince.com> | 2009-05-09 14:19:19 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-05-11 19:07:05 +0200 |
| commit | d5e98372e6efc414e818f1ed2d33156eb6ca6200 (patch) | |
| tree | 3a111d6bfec225e3cdb5ffc02b8989fea5f28523 /t/op/attrs.t | |
| parent | 4477f4efa618ad1dc98479d6c1631bb62963bc70 (diff) | |
| download | perl-d5e98372e6efc414e818f1ed2d33156eb6ca6200.tar.gz | |
Allow typed arrays and hashes
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 5ba0fdacf9..5e75e50913 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -10,7 +10,7 @@ BEGIN { require './test.pl'; } -plan 83; +plan 84; $SIG{__WARN__} = sub { die @_ }; @@ -82,7 +82,10 @@ eval 'my A $x : plugh;'; is $@, ''; eval 'package Cat; my Cat @socks;'; -like $@, qr/^Can't declare class for non-scalar \@socks in "my"/; +like $@, ''; + +eval 'my Cat %nap;'; +like $@, ''; sub X::MODIFY_CODE_ATTRIBUTES { die "$_[0]" } sub X::foo { 1 } |