From 9d001be838fe600501da2961d7e665c0b4691d00 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Oct 1999 13:19:17 +0000
Subject: test for #2835 (yeah, better later than never)

p4raw-id: //depot/cfgperl@4439
---
 t/op/array.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 't/op/array.t')

diff --git a/t/op/array.t b/t/op/array.t
index 3409556396..1108f494f8 100755
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..65\n";
+print "1..66\n";
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -211,3 +211,8 @@ my $t = 63;
 sub reify { $_[1] = ++$t; print "@_\n"; }
 reify('ok');
 reify('ok');
+
+# qw() is no more a runtime split, it's compiletime.
+print "not " unless qw(foo bar snorfle)[2] eq 'snorfle';
+print "ok 66\n";
+
-- 
cgit v1.2.1