diff options
| -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 |