Eliminate CodeString coercion.

perl6 · Sep 8, 2010 · d2d100f · d2d100f
1 parent bb5d370
commit d2d100f
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -274,8 +274,7 @@ Create a new cursor for matching C<target>.
     parrotclass = getattribute $P0, 'parrotclass'
     cur = new parrotclass
 
-    $P0 = new ['CodeString']
-    $P0 = target
+    $P0 = box target
     setattribute cur, '$!target', $P0
 
     if has_cont goto cursor_cont