From a0700c54400fdfbed7244354f2c207414558745b Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Thu, 15 Sep 2011 09:30:01 +0000
Subject: 29773: Marco Hinz: some perl modules weren't completed

---
 ChangeLog                          | 7 ++++++-
 Completion/Unix/Type/_perl_modules | 2 +-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c822e58c5..e05d71c6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-15  Peter Stephenson  <pws@csr.com>
+
+	* 29773: Marco Hinz: Completion/Unix/Type/_perl_modules:
+	complete some missed modules.
+
 2011-09-10  Clint Adams  <clint@zsh.org>
 
 	* 29762: Completion/Debian/Command/_bts: bts completion tag
@@ -15408,5 +15413,5 @@
 
 *****************************************************
 * This is used by the shell to define $ZSH_PATCHLEVEL
-* $Revision: 1.5465 $
+* $Revision: 1.5466 $
 *****************************************************
diff --git a/Completion/Unix/Type/_perl_modules b/Completion/Unix/Type/_perl_modules
index 26cab0c23..1b61043e7 100644
--- a/Completion/Unix/Type/_perl_modules
+++ b/Completion/Unix/Type/_perl_modules
@@ -101,7 +101,7 @@ _perl_modules () {
 
         # Find all modules
         if [[ -d $libdir && -x $libdir ]]; then
-          new_pms=( $libdir/{[A-Z]*/***/,}*${~sufpat}~*blib* )
+          new_pms=( $libdir/{[A-Za-z]*/***/,}*${~sufpat}~*blib* )
           new_pms=( "${(@)new_pms##$libdir/##}" )
         fi
 
-- 
cgit 1.4.1