[ID 20010524.002] find2perl bug in fileglob_to_re
authorGeraint A Edwards <gedge@serf.org>
Thu, 24 May 2001 22:51:24 +0000 (23:51 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 24 May 2001 21:07:25 +0000 (21:07 +0000)
Message-Id: <20010524225124.A34981@cymru.serf.org>

p4raw-id: //depot/perl@10202

x2p/find2perl.PL

index 614f0a2..7b6834d 100644 (file)
@@ -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";
 }