/bash_completion_lib/include/_perlmodules

http://github.com/brinkman83/bashrc · #! · 4 lines · 4 code · 0 blank · 0 comment · 0 complexity · 310448f27a06b21c7cef5d72be258327 MD5 · raw file

  1. _perlmodules()
  2. {
  3. COMPREPLY=( $( compgen -P "$prefix" -W "$( perl -e 'sub mods { my ($base,$dir)=@_; return if $base !~ /^\Q$ENV{cur}/; chdir($dir) or return; for (glob(q[*.pm])) {s/\.pm$//; print qq[$base$_\n]}; mods(/^(?:[.\d]+|$Config{archname}-$Config{osname}|auto)$/ ? undef : qq[${base}${_}\\\\:\\\\:],qq[$dir/$_]) for grep {-d} glob(q[*]); } mods(undef,$_) for @INC;' )" -- $cur ) )
  4. }