This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
$[ = 2 should not warn.
[perl5.git] / t / lib / warnings / op
index 4f00c12..891677f 100644 (file)
@@ -528,6 +528,7 @@ use warnings 'void' ;
 5 || print "bad\n";    # test OPpCONST_SHORTCIRCUIT
 use constant U => undef;
 print "boo\n" if U;    # test OPpCONST_SHORTCIRCUIT
+$[ = 2; # should not warn
 no warnings 'void' ;
 "abc"; # OP_CONST
 7 ; # OP_CONST