Don't bother passing unused arg to _perlmodules().

2010-11-16 22:59:36 +02:00 · 2010-11-16 22:59:36 +02:00 · 53062bbae2
commit 53062bbae2
parent 5b8596231c
1 changed files with 2 additions and 2 deletions
--- a/completions/perl
+++ b/completions/perl
@ -41,7 +41,7 @@ _perl()
            return 0
            ;;
        -m|-M)
-            _perlmodules "$cur"
+            _perlmodules
            return 0
            ;;
    esac
@ -84,7 +84,7 @@ _perldoc()
    else
        # return available modules (unless it is clearly a file)
        if [[ "$cur" != */* ]]; then
-            _perlmodules "$cur"
+            _perlmodules
            COMPREPLY=( "${COMPREPLY[@]}" $( compgen -W \
                '$( PAGER=/bin/cat man perl |  \
                sed -ne "/perl.*Perl overview/,/perlwin32/p" | \