This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak optree_constants.t for inlined list consts
authorFather Chrysostomos <sprout@cpan.org>
Sun, 30 Jun 2013 07:40:58 +0000 (00:40 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Jul 2013 06:48:02 +0000 (23:48 -0700)
ext/B/t/optree_constants.t

index d08c6be..71946ac 100644 (file)
@@ -176,7 +176,10 @@ EOT_EOT
 EONT_EONT
 
 
-my ($expect, $expect_nt) = (<<'EOT_EOT', <<'EONT_EONT');
+my ($expect, $expect_nt) =
+    $] >= 5.019002
+       ? (" is a constant sub, optimized to a AV\n") x 2
+       : (<<'EOT_EOT', <<'EONT_EONT');
 # 3  <1> leavesub[2 refs] K/REFC,1 ->(end)
 # -     <@> lineseq K ->3
 # 1        <;> nextstate(constant 61 constant.pm:118) v:*,&,x*,x&,x$ ->2