summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--Completion/Unix/Type/_perl_modules2
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