diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/attrs.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 2702004881..f9212e4c26 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -142,6 +142,10 @@ eval 'my A $x : plugh plover;'; mytest qr/^SCALAR package attributes may clash with future reserved words: ["']?plugh["']? /; BEGIN {++$ntests} +eval 'package Cat; my Cat @socks;'; +mytest qr/^Can't declare class for non-scalar \@socks in "my"/; +BEGIN {++$ntests} + sub X::MODIFY_CODE_ATTRIBUTES { die "$_[0]" } sub X::foo { 1 } *Y::bar = \&X::foo; |