diff options
Diffstat (limited to 'Completion/User/_perl_modules')
| -rw-r--r-- | Completion/User/_perl_modules | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules index f43ec8889..ef5c00628 100644 --- a/Completion/User/_perl_modules +++ b/Completion/User/_perl_modules @@ -21,22 +21,22 @@ if [[ ${+_perl_modules} -eq 0 ]]; then else local inc libdir new_pms inc=( $( perl -e 'print "@INC"' ) ) - typeset -agU _perl_modules # _perl_modules is global, no duplicates + typeset -agU _perl_modules # _perl_modules is global, no duplicates _perl_modules=( ) for libdir in $inc; do - # Ignore cwd - could be too expensive e.g. if we're near / - if [[ $libdir == '.' ]]; then break; fi + # Ignore cwd - could be too expensive e.g. if we're near / + if [[ $libdir == '.' ]]; then break; fi - # Find all modules - cd $libdir - new_pms=( {[A-Z]*/**/,}*.pm(N) ) - cd $OLDPWD + # Find all modules + cd $libdir + new_pms=( {[A-Z]*/**/,}*.pm(N) ) + cd $OLDPWD - # Convert to Perl nomenclature - new_pms=( ${new_pms:r:fs#/#::#} ) + # Convert to Perl nomenclature + new_pms=( ${new_pms:r:fs#/#::#} ) - _perl_modules=( $new_pms $_perl_modules ) + _perl_modules=( $new_pms $_perl_modules ) done fi fi |