test nested captures

moritz · Aug 19, 2009 · 07f2618 · 07f2618
1 parent ceec306
commit 07f2618
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/match-to-svg.pl b/match-to-svg.pl
@@ -68,7 +68,7 @@
         :width(($to - $from) * $s),
         :y($y * 2 * $font-size + 100),
         :height(2 * $font-size),
-        :style('stroke: black; stroke-width: 1; fill: grey; opacity: 10%'),
+        :style('stroke: black; stroke-width: 1; fill: rgb(220,220,220); opacity: 10%'),
     ];
     take 'text' => [
         :x(($from + $to) * $s / 2),
@@ -88,7 +88,7 @@
 
 my $x = 'the 1,000,000 woman';
 
-if $x ~~ m/:s  (<[10,]>+) <who> $ / {
+if $x ~~ m/:s  ((\d+) ** ',') <who> $ / {
     svg-dump($/, $x);
 } else {
     die "no match";