diff options
| author | Brendan O'Dea <bod@debian.org> | 2002-05-07 00:04:48 +1000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-05-06 09:37:58 +0000 |
| commit | ca63c81071474b367f4513b49806c0e322d087ac (patch) | |
| tree | 3e10e56db396d186d7f59528c6bde83a7e913aa2 | |
| parent | cbdeeddd1e1eb7775ba38e724d81b9b3d1f4d513 (diff) | |
| download | perl-ca63c81071474b367f4513b49806c0e322d087ac.tar.gz | |
Term/Complete.pm: quote metachars
Message-Id: <20020506040448.GA8241@londo.odea.dropbear.id.au>
p4raw-id: //depot/perl@16424
| -rw-r--r-- | lib/Term/Complete.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/Complete.pm b/lib/Term/Complete.pm index 308af049a5..e20b2a66ce 100644 --- a/lib/Term/Complete.pm +++ b/lib/Term/Complete.pm @@ -116,7 +116,7 @@ sub Complete { CASE: { # (TAB) attempt completion $_ eq "\t" && do { - @match = grep(/^$return/, @cmp_lst); + @match = grep(/^\Q$return/, @cmp_lst); unless ($#match < 0) { $l = length($test = shift(@match)); foreach $cmp (@match) { @@ -133,7 +133,7 @@ sub Complete { # (^D) completion list $_ eq $complete && do { - print(join("\r\n", '', grep(/^$return/, @cmp_lst)), "\r\n"); + print(join("\r\n", '', grep(/^\Q$return/, @cmp_lst)), "\r\n"); redo LOOP; }; |