From be73087b9b0e3b91cd8b65e7f5d3b6f34532a700 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Mon, 26 Feb 2018 17:29:29 +0000
Subject: [PATCH] Further fix supporting test code

The problem that original fix[^1] was trying to defensively account for
actually already exists in `&take` calls that aren't a last statement
of a `for` loop and the Seq gets sunk, exploding the test.

[1] https://github.com/perl6/roast/commit/a8d6091d730b54829a9873399f79a10
---
 S03-operators/repeat.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/S03-operators/repeat.t b/S03-operators/repeat.t
index 18dfa95688..621d3b2610 100644
--- a/S03-operators/repeat.t
+++ b/S03-operators/repeat.t
@@ -199,7 +199,7 @@ is-deeply (|() xx *)[^5], (Nil, Nil, Nil, Nil, Nil),
 # RT #121327
 {
     my @result = gather {
-        for ^2 { my @b = 1 xx 4; take (@b.shift xx 2) xx 2; Nil }
+        for ^2 { my @b = 1 xx 4; my $ = take (@b.shift xx 2) xx 2; Nil }
     }
     is-deeply @result.map(*.list).list, (((1, 1), (1, 1)), ((1, 1), (1, 1))),
         'Nested xx in for-loop';