let Str.match return a List properly

rakudo · Aug 26, 2015 · 778b1fb · 778b1fb
1 parent 5198e7a
commit 778b1fb
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -726,7 +726,14 @@ my class Str does Stringy { # declared in BOOTSTRAP
               $samecase,
               $samespace,
             );
-            $global ?? (@matches,).list !! @matches[0];
+            if $global {
+                my \result := List.CREATE;
+                nqp::bindattr(result, List, '$!reified', nqp::getattr(@matches, List, '$!reified'));
+                result
+            }
+            else {
+                @matches[0]
+            }
         }
     }