From 005b4f76f7e6bcb327d99bc3d5fac8f6fa712d58 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz.lenz@gmail.com>
Date: Sat, 7 Oct 2017 22:11:46 +0200
Subject: [PATCH] RT #130186: $/ inside comb

---
 S32-str/comb.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/S32-str/comb.t b/S32-str/comb.t
index 8e56582942..58b8a5faa9 100644
--- a/S32-str/comb.t
+++ b/S32-str/comb.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 81;
+plan 82;
 
 # L<S32::Str/Str/=item comb>
 
@@ -186,4 +186,9 @@ subtest 'edge-case combers' => {
     }
 }
 
+# RT #130186
+is (gather 'abc'.comb(/. { take $/.Str } <!> /)).join(','),
+    'a,b,c',
+    '$/ inside comb';
+
 # vim: ft=perl6