PATCH: _perl_modules caution

[Clint Adams <schizo@xxxxxxxxxx>]

If @INC contains nonexistent directories, the cd below will fail,
which, in turn, leads to results that are ugly at best.

Index: Completion/User/_perl_modules
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/User/_perl_modules,v
retrieving revision 1.4
diff -u -r1.4 _perl_modules
--- Completion/User/_perl_modules	2000/05/23 18:06:32	1.4
+++ Completion/User/_perl_modules	2000/05/26 14:00:10
@@ -46,9 +46,11 @@
       if [[ $libdir == '.' ]]; then break; fi
 
       # Find all modules
+      if [[ -d $libdir && -x $libdir ]]; then
       cd $libdir
       new_pms=( {[A-Z]*/***/,}*.pm~*blib*(N) )
       cd $OLDPWD
+      fi
 
       # Convert to Perl nomenclature
       new_pms=( ${new_pms:r:fs#/#::#} )