diff options
| author | Oliver Kiddle <opk@users.sourceforge.net> | 2005-06-08 12:45:24 +0000 |
|---|---|---|
| committer | Oliver Kiddle <opk@users.sourceforge.net> | 2005-06-08 12:45:24 +0000 |
| commit | 0ba8ae87eac21281e0b17eb9cbb523d133067a4a (patch) | |
| tree | 614cc49ce90c3c2562f83d6739f8ea76dc75d7f0 /Completion/Unix/Type/_perl_modules | |
| parent | 9181f0e3059862d2d8cc109bc849f8705cbbc23c (diff) | |
| download | zsh-0ba8ae87eac21281e0b17eb9cbb523d133067a4a.tar.gz zsh-0ba8ae87eac21281e0b17eb9cbb523d133067a4a.tar.xz zsh-0ba8ae87eac21281e0b17eb9cbb523d133067a4a.zip | |
21315: make completion functions give precendence to descriptions passed as
parameters and cleanup descriptons in calling functions
Diffstat (limited to 'Completion/Unix/Type/_perl_modules')
| -rw-r--r-- | Completion/Unix/Type/_perl_modules | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Completion/Unix/Type/_perl_modules b/Completion/Unix/Type/_perl_modules index 21ebb4441..4ed06ff31 100644 --- a/Completion/Unix/Type/_perl_modules +++ b/Completion/Unix/Type/_perl_modules @@ -18,9 +18,6 @@ # modules which don't begin with an uppercase letter). _perl_modules () { - local opts - zparseopts -D -a opts S: q - # Set a sensible default caching policy. This has to be done inside # this function otherwise we wouldn't know the context for the style. local update_policy @@ -87,7 +84,7 @@ _perl_modules () { local expl - _wanted modules expl 'Perl modules' compadd "$opts[@]" -a $perl_modules + _wanted modules expl 'Perl module' compadd "$@" -a - $perl_modules } _perl_modules_caching_policy () { |