This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Regression test for attributes 'reserved' warning,
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Aug 2006 15:46:54 +0000 (15:46 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Aug 2006 15:46:54 +0000 (15:46 +0000)
by Jerry D. Hedden

p4raw-id: //depot/perl@28761

t/op/attrs.t

index 10e2c24..abfdb2c 100644 (file)
@@ -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"/;