From 929c56748420b581088cd75443d21d7c06ac44d6 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Mon, 6 Sep 1999 11:05:38 +0000
Subject: zsh-3.1.6-pws-3

---
 Completion/User/_perldoc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Completion/User/_perldoc')

diff --git a/Completion/User/_perldoc b/Completion/User/_perldoc
index cd5383a45..d15650448 100644
--- a/Completion/User/_perldoc
+++ b/Completion/User/_perldoc
@@ -15,9 +15,9 @@ if [[ $CURRENT -eq 3 && $words[2] == '-f' ]]; then
   _perl_builtin_funcs
 elif [[ $CURRENT -eq 3 && $words[2] == '-q' ]]; then
   zle -R "I can't read your mind!"
+  return 1
 else
   _perl_modules
   _perl_basepods
   _path_files -/ -g '*.(pod|pm)'
 fi
-
-- 
cgit 1.4.1