From cb4bb129dd143255a582ddd203baa73d3dcc1db7 Mon Sep 17 00:00:00 2001
From: Sven Wischnowsky <wischnow@users.sourceforge.net>
Date: Fri, 6 Oct 2000 13:01:51 +0000
Subject: more option setting cleanup; remove some unnecessary setopts, remove
 N qualifiers (12917)

---
 Completion/User/_perl_modules | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Completion/User/_perl_modules')

diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules
index 117933022..84273f7fa 100644
--- a/Completion/User/_perl_modules
+++ b/Completion/User/_perl_modules
@@ -46,7 +46,6 @@ _perl_modules () {
         # complete Perl modules.  Maybe her $path is wrong?
         _message "Didn't find perl on \$PATH; guessing @INC ..."
   
-        setopt localoptions extendedglob
         inc=( /usr/lib/perl5{,/{site_perl/,}<5->.([0-9]##)}(N) 
               ${(s.:.)PERL5LIB} )
       fi
@@ -61,7 +60,7 @@ _perl_modules () {
         # Find all modules
         if [[ -d $libdir && -x $libdir ]]; then
         cd $libdir
-        new_pms=( {[A-Z]*/***/,}*.pm~*blib*(N) )
+        new_pms=( {[A-Z]*/***/,}*.pm~*blib* )
         cd $OLDPWD
         fi
   
@@ -84,10 +83,10 @@ _perl_modules_caching_policy () {
   local _perllocals
 
   # rebuild if cache is more than a week old
-  oldp=( "$1"(Nmw+1) )
+  oldp=( "$1"(mw+1) )
   (( $#oldp )) && return 0
 
-  _perllocals=( /usr/lib/perl5/**/perllocal.pod(N) )
+  _perllocals=( /usr/lib/perl5/**/perllocal.pod )
 
   if (( $#_perllocals )); then
     for pod in $_perllocals; do
-- 
cgit 1.4.1