diff options
| author | Geraint A Edwards <gedge@serf.org> | 2001-05-24 23:51:24 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-24 21:07:25 +0000 |
| commit | 500972986e4a730e372de46210df9f1cb838f621 (patch) | |
| tree | ad2d2df5e4938b219ba71e84ca7c71cdd8b19aff /x2p/find2perl.PL | |
| parent | 45c68e7ce522261160abed996379f1b3517eab00 (diff) | |
| download | perl-500972986e4a730e372de46210df9f1cb838f621.tar.gz | |
[ID 20010524.002] find2perl bug in fileglob_to_re
Message-Id: <20010524225124.A34981@cymru.serf.org>
p4raw-id: //depot/perl@10202
Diffstat (limited to 'x2p/find2perl.PL')
| -rw-r--r-- | x2p/find2perl.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 614f0a2bc8..7b6834d70f 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"; } |