From 500972986e4a730e372de46210df9f1cb838f621 Mon Sep 17 00:00:00 2001
From: Geraint A Edwards <gedge@serf.org>
Date: Thu, 24 May 2001 23:51:24 +0100
Subject: [PATCH] [ID 20010524.002] find2perl bug in fileglob_to_re Message-Id:
 <20010524225124.A34981@cymru.serf.org>

p4raw-id: //depot/perl@10202
---
 x2p/find2perl.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
 }
-- 
2.7.4