diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-24 13:19:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-24 13:19:17 +0000 |
| commit | 9d001be838fe600501da2961d7e665c0b4691d00 (patch) | |
| tree | 99af191159407c1762f6d6e7852a3d4ecc94720e | |
| parent | b900a5214ea580557fb7c41bb3b529d90bad25a3 (diff) | |
| download | perl-9d001be838fe600501da2961d7e665c0b4691d00.tar.gz | |
test for #2835 (yeah, better later than never)
p4raw-id: //depot/cfgperl@4439
| -rwxr-xr-x | t/op/array.t | 7 |
1 files changed, 6 insertions, 1 deletions
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"; + |