The op/stat.t patch in #5341 wasn't robust enough,

[perl5.git] / t / op / array.t

diff --git a/t/op/array.t b/t/op/array.t
index 8dea44d..1108f49 100755 (executable)
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..63\n";
+print "1..66\n";
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -206,3 +206,13 @@ t("@bar" eq "foo bar");                                            # 43
     t("@bee" eq "foo bar burbl blah");                         # 63
 }
 
+# make sure reification behaves
+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";
+