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 | f5246ca5ed33cb48e16df887dd24a57e2ba54992 (patch) | |
| tree | ad2d2df5e4938b219ba71e84ca7c71cdd8b19aff /x2p | |
| parent | 91fbe5a9f9545525dcba2efe9e6fb6e7655d3a51 (diff) | |
| download | perl-f5246ca5ed33cb48e16df887dd24a57e2ba54992.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')
| -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"; } |