Rakudo arrays don't pir::does('array'), so use Rakudo's normal list m…

…echanisms when performing regex assertions.
rakudo · May 25, 2010 · 6f55b57 · 6f55b57
1 parent ccc1a9c
commit 6f55b57
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/src/glue/regex.pir b/src/glue/regex.pir
@@ -8,14 +8,10 @@
     .local pmc p6regex
     p6regex = compreg 'Regex::P6Regex'
 
-    $I0 = does var, 'array'
-    if $I0 goto var_array
-    var = p6regex.'compile'(var)
-    goto done
-
-  var_array:
+  var_list:
     .local pmc var_it, elem
-    var_it = iter var
+    $P0 = '&list'(var)
+    var_it = iter $P0
     var = new ['ResizablePMCArray']
   var_loop:
     unless var_it goto done