the \G? means that the string in theory always matches - 5.10 terminates, 5.8 doesn...
Matt S Trout [Sat, 21 Aug 2010 22:53:45 +0000 (23:53 +0100)]
t/selectors.t

index 33e050b..9933e43 100644 (file)
@@ -126,7 +126,7 @@ sub check_select{
     ->from_html($tmpl)
     ->select(shift)->replace("the monkey")->to_html;
     my $count = 0;
-    while ( $output =~ /\G?.*the monkey/gc ){
+    while ( $output =~ /the monkey/g ){
         $count++;
     }
     return $count;