Update setting with fix for failing subst expression.

perl6 · May 25, 2010 · 0e0dbcb · 0e0dbcb
1 parent 7882ea3
commit 0e0dbcb
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/setting/Regex.pm b/src/setting/Regex.pm
@@ -41,10 +41,12 @@ our sub subst ($text, $regex, $repl, :$global?) {
     my $result  := pir::new__Ps('StringBuilder');
 
     for @matches -> $match {
-        pir::push($result, pir::substr($text, $offset, $match.from - $offset))
+        if $match {
-            if $match.from > $offset;
+            pir::push($result, pir::substr($text, $offset, $match.from - $offset))
-        pir::push($result, $is_code ?? $repl($match) !! $repl);
+                if $match.from > $offset;
-        $offset := $match.to;
+            pir::push($result, $is_code ?? $repl($match) !! $repl);
+            $offset := $match.to;
+        }
     }
 
     my $chars := pir::length($text);