X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/97f4a048e9e2bd474605e3c61fdcc4ad00b5dc89..2e0ae2d3c84912a75f62cfca2c31658c66304493:/t/lib/warnings/op?ds=sidebyside

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 4f00c12..891677f 100644
--- 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
+$[ = 2; # should not warn
 no warnings 'void' ;
 "abc"; # OP_CONST
 7 ; # OP_CONST