diff options
| -rw-r--r-- | t/op/attrs.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 10e2c2493c..abfdb2ce70 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -1,7 +1,9 @@ -#!./perl -w +#!./perl # Regression tests for attributes.pm and the C< : attrs> syntax. +use warnings; + BEGIN { chdir 't' if -d 't'; @INC = '../lib'; @@ -81,6 +83,10 @@ like $@, qr/^SCALAR package attribute may clash with future reserved word: ["']? eval 'my A $x : plugh plover;'; like $@, qr/^SCALAR package attributes may clash with future reserved words: ["']?plugh["']? /; +no warnings 'reserved'; +eval 'my A $x : plugh;'; +is $@, ''; + eval 'package Cat; my Cat @socks;'; like $@, qr/^Can't declare class for non-scalar \@socks in "my"/; |