From: yves orton <unknown>
Date: Fri, 17 Nov 2006 10:17:48 +0000 (-0800)
Subject: [perl #18209] bug in regex s/\s$word\s/ /gi; and $&
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=04e1c60a43cf1dcb6771259219d8604b30e6705b;p=p5sagit%2Fp5-mst-13.2.git

[perl #18209] bug in regex s/\s$word\s/ /gi; and $&
From: "yves orton via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-1713-1163787467-1300.18209-15-0@perl.org>

p4raw-id: //depot/perl@29311
---

diff --git a/t/op/pat.t b/t/op/pat.t
index b431db3..8f2ce2a 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -4063,6 +4063,24 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) {
 	iseq($l+1,$count,"Should be L+1 not L*(L+3)/2 (L=$l)");
     }
 }
+{
+    local $Message = "RT#18209";
+    my $text = ' word1 word2 word3 word4 word5 word6 ';
+
+    my @words = ('word1', 'word3', 'word5');
+    my $count;
+    foreach my $word (@words){
+        $text =~ s/$word\s//gi; # Leave a space to seperate words in the resultant str.
+        # The following block is not working.
+        if($&){
+            $count++;
+        }
+        # End bad block
+    }
+    iseq($count,3);
+    iseq($text,' word2 word4 word6 ');
+}
+
 # Test counter is at bottom of file. Put new tests above here.
 #-------------------------------------------------------------------
 # Keep the following tests last -- they may crash perl
@@ -4108,4 +4126,4 @@ ok((q(a)x 100) =~ /^(??{'(.)'x 100})/,
 # Put new tests above the dotted line about a page above this comment
 
 # Don't forget to update this!
-BEGIN { print "1..1363\n" };
+BEGIN { print "1..1365\n" };