[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 (file)
--- 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";
 }