From 63b336243fdf5e60058472fa456ed11e75280189 Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@users.sourceforge.net>
Date: Wed, 21 Jan 2004 13:53:28 +0000
Subject: 19387: add (-.) glob qualifier to globs where only files are directly
 applicable

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

(limited to 'Completion/Unix/Command/_perldoc')

diff --git a/Completion/Unix/Command/_perldoc b/Completion/Unix/Command/_perldoc
index 9a017a184..f0595fc9f 100644
--- a/Completion/Unix/Command/_perldoc
+++ b/Completion/Unix/Command/_perldoc
@@ -17,7 +17,7 @@ _perl_pods () {
   _alternative \
     'modules:: _perl_modules' \
     'pods:: _perl_basepods' \
-    'files:Perl modules and .pods:_files -g \*.\(pod\|pm\)'
+    'files:Perl modules and .pods:_files -g "*.(pod|pm)(-.)"'
 }
 
 _perldoc "$@"
-- 
cgit v1.2.3