$[ = 2 should not warn.

[perl5.git] / t / lib / warnings / op

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 4f00c12..891677f 100644 (file)
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -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
 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
 no warnings 'void' ;
 "abc"; # OP_CONST
 7 ; # OP_CONST