From 87821ed853fba324a4249786af4984a984b96dac Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@users.sourceforge.net>
Date: Wed, 14 Jan 2004 16:56:37 +0000
Subject: 19365: avoid use of $words[0]

---
 Completion/Unix/Type/_perl_modules | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Completion')

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
-- 
cgit 1.4.1