diff options
| author | Oliver Kiddle <opk@users.sourceforge.net> | 2004-01-14 16:56:37 +0000 |
|---|---|---|
| committer | Oliver Kiddle <opk@users.sourceforge.net> | 2004-01-14 16:56:37 +0000 |
| commit | 87821ed853fba324a4249786af4984a984b96dac (patch) | |
| tree | bcb4d0188079b7f763f381c28e27654079bf242b /Completion/Unix/Type/_perl_modules | |
| parent | 28156d76a326bacd7c0d74823a57fc852335bca3 (diff) | |
| download | zsh-87821ed853fba324a4249786af4984a984b96dac.tar.gz zsh-87821ed853fba324a4249786af4984a984b96dac.tar.xz zsh-87821ed853fba324a4249786af4984a984b96dac.zip | |
19365: avoid use of $words[0]
Diffstat (limited to 'Completion/Unix/Type/_perl_modules')
| -rw-r--r-- | Completion/Unix/Type/_perl_modules | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Completion/Unix/Type/_perl_modules b/Completion/Unix/Type/_perl_modules index 7e4a206c9..21ebb4441 100644 --- a/Completion/Unix/Type/_perl_modules +++ b/Completion/Unix/Type/_perl_modules @@ -30,7 +30,7 @@ _perl_modules () { _perl_modules_caching_policy fi - local perl=${words[0]%doc} perl_modules + local perl=${words[1]%doc} perl_modules if whence $perl >/dev/null; then perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules elif (( ${+commands[perl]} )); then |