From: Geraint A Edwards <gedge@serf.org>
Date: Thu, 24 May 2001 22:51:24 +0000 (+0100)
Subject: [ID 20010524.002] find2perl bug in fileglob_to_re
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=500972986e4a730e372de46210df9f1cb838f621;p=p5sagit%2Fp5-mst-13.2.git

[ID 20010524.002] find2perl bug in fileglob_to_re
Message-Id: <20010524225124.A34981@cymru.serf.org>

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

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index 614f0a2..7b6834d 100644
--- a/x2p/find2perl.PL
+++ b/x2p/find2perl.PL
@@ -674,7 +674,7 @@ sub tab () {
 
 sub fileglob_to_re ($) {
     my $x = shift;
-    $x =~ s#([./^\$()])#\\$1#g;
+    $x =~ s#([./^\$()+])#\\$1#g;
     $x =~ s#([?*])#.$1#g;
     "^$x\\z";
 }