about summary refs log tree commit diff
path: root/Completion
diff options
context:
space:
mode:
authorOliver Kiddle <opk@users.sourceforge.net>2004-01-14 16:56:37 +0000
committerOliver Kiddle <opk@users.sourceforge.net>2004-01-14 16:56:37 +0000
commit87821ed853fba324a4249786af4984a984b96dac (patch)
treebcb4d0188079b7f763f381c28e27654079bf242b /Completion
parent28156d76a326bacd7c0d74823a57fc852335bca3 (diff)
downloadzsh-87821ed853fba324a4249786af4984a984b96dac.tar.gz
zsh-87821ed853fba324a4249786af4984a984b96dac.tar.xz
zsh-87821ed853fba324a4249786af4984a984b96dac.zip
19365: avoid use of $words[0]
Diffstat (limited to 'Completion')
-rw-r--r--Completion/Unix/Type/_perl_modules2
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