From: Matt S Trout <matthewt@hercule.scsys.co.uk>
Date: Sat, 21 Aug 2010 22:53:45 +0000 (+0100)
Subject: the \G? means that the string in theory always matches - 5.10 terminates, 5.8 doesn... 
X-Git-Tag: release_0.009004~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=eacf665fa4616e10efec9c80546bf71e05e4e96e

the \G? means that the string in theory always matches - 5.10 terminates, 5.8 doesn't - fixing the regexp to not be overly clever eliminates the problem
---

diff --git a/t/selectors.t b/t/selectors.t
index 33e050b..9933e43 100644
--- a/t/selectors.t
+++ b/t/selectors.t
@@ -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;