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 | |
| parent | 28156d76a326bacd7c0d74823a57fc852335bca3 (diff) | |
| download | zsh-87821ed853fba324a4249786af4984a984b96dac.tar.gz zsh-87821ed853fba324a4249786af4984a984b96dac.tar.xz zsh-87821ed853fba324a4249786af4984a984b96dac.zip | |
19365: avoid use of $words[0]
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | Completion/Unix/Type/_perl_modules | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog index ef6ea8605..cd1fe99b6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-01-14 Oliver Kiddle <opk@zsh.org> + + * spotted by Bart: 19365: Completion/Unix/Type/_perl_modules: + avoid use of $words[0] + 2004-01-13 Doug Kearns <djkea2@mugca.its.monash.edu.au> * 19358: Completion/Unix/Command/_elinks: update for version 0.9.0 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 |