oops; fixed botched implementation from last commit

'\x' is two characters, not one.
masak · Apr 18, 2010 · f958381 · f958381
1 parent 131525a
commit f958381
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/t/perl6regex/01-regex.t b/t/perl6regex/01-regex.t
@@ -76,11 +76,11 @@ sub match_perl6regex($pattern, $target) {
 
 sub replace_x($s is copy) {
     while defined (my $start = $s.index("\\x")) {
-        my $end = $start + 1;
+        my $end = $start + 2;
         ++$end while $s.substr($end, 1) ~~ /<[0..9a..fA..F]>/;
-        my $n = $s.substr($start + 1, $end - $start - 1);
+        my $n = $s.substr($start + 2, $end - $start - 2);
         $s = $s.substr(0, $start) ~ chr(:16($n)) ~ $s.substr($end);
-    };
+    }
     $s
 }
 

diff --git a/test-regex b/test-regex
@@ -14,9 +14,9 @@ say $match ?? $match.dump_str('mob', ' ', '') !! "No match\n";
 
 sub replace_x($s is copy) {
     while defined (my $start = $s.index("\\x")) {
-        my $end = $start + 1;
+        my $end = $start + 2;
         ++$end while $s.substr($end, 1) ~~ /<[0..9a..fA..F]>/;
-        my $n = $s.substr($start + 1, $end - $start - 1);
+        my $n = $s.substr($start + 2, $end - $start - 2);
         $s = $s.substr(0, $start) ~ chr(:16($n)) ~ $s.substr($end);
     }
     $s