diff options
| author | Peter Eisentraut <peter@eisentraut.org> | 2023-06-21 16:14:47 +0200 |
|---|---|---|
| committer | Peter Eisentraut <peter@eisentraut.org> | 2023-06-21 16:20:26 +0200 |
| commit | 3d9fd1a8743abfe460137f45e8523e710c7cc589 (patch) | |
| tree | 952e3b63f3e2672c8e7a44d36554dfcab203cc09 /src | |
| parent | 8cca660b0bfb495306f9abd94fb4bcde783ee8ad (diff) | |
| download | postgresql-3d9fd1a8743abfe460137f45e8523e710c7cc589.tar.gz postgresql-3d9fd1a8743abfe460137f45e8523e710c7cc589.zip | |
Allow and require passing files on command line of pgperltidy
pgperltidy as well as pgperlcritic and pgperlsyncheck now allow
passing files and directories on the command line, like pgindent does.
(Previously, they would always operate on the whole tree.)
Also, for consistency with pgindent's new behavior (as of b16259b3c1),
passing an argument is now required. To get the previous default
behavior, use "pgperltidy ." for example.
Discussion: https://www.postgresql.org/message-id/flat/45aacd8a-5265-d9da-8df2-b8e2c0cf6a07%40eisentraut.org
Diffstat (limited to 'src')
| -rw-r--r-- | src/tools/perlcheck/find_perl_files | 8 | ||||
| -rwxr-xr-x | src/tools/perlcheck/pgperlcritic | 2 | ||||
| -rwxr-xr-x | src/tools/perlcheck/pgperlsyncheck | 2 | ||||
| -rw-r--r-- | src/tools/pgindent/README | 2 | ||||
| -rwxr-xr-x | src/tools/pgindent/pgperltidy | 2 |
5 files changed, 10 insertions, 6 deletions
diff --git a/src/tools/perlcheck/find_perl_files b/src/tools/perlcheck/find_perl_files index fd99dab83b0..20dceb800d0 100644 --- a/src/tools/perlcheck/find_perl_files +++ b/src/tools/perlcheck/find_perl_files @@ -3,11 +3,15 @@ # shell function to find all perl files in the source tree find_perl_files () { + if [ $# -eq 0 ]; then + echo 'No files to process' 1>&2 + return + fi { # take all .pl and .pm files - find . -type f -name '*.p[lm]' -print + find "$@" -type f -name '*.p[lm]' -print # take executable files that file(1) thinks are perl files - find . -type f -perm -100 -exec file {} \; -print | + find "$@" -type f -perm -100 -exec file {} \; -print | egrep -i ':.*perl[0-9]*\>' | cut -d: -f1 } | sort -u | grep -v '^\./\.git/' diff --git a/src/tools/perlcheck/pgperlcritic b/src/tools/perlcheck/pgperlcritic index 1c2f787580a..2ec6f20de31 100755 --- a/src/tools/perlcheck/pgperlcritic +++ b/src/tools/perlcheck/pgperlcritic @@ -14,7 +14,7 @@ PERLCRITIC=${PERLCRITIC:-perlcritic} . src/tools/perlcheck/find_perl_files -find_perl_files | xargs $PERLCRITIC \ +find_perl_files "$@" | xargs $PERLCRITIC \ --quiet \ --program-extensions .pl \ --profile=src/tools/perlcheck/perlcriticrc diff --git a/src/tools/perlcheck/pgperlsyncheck b/src/tools/perlcheck/pgperlsyncheck index 730f5927cda..da59c9727c0 100755 --- a/src/tools/perlcheck/pgperlsyncheck +++ b/src/tools/perlcheck/pgperlsyncheck @@ -13,4 +13,4 @@ set -e # for zsh setopt shwordsplit 2>/dev/null || true -find_perl_files | xargs -L 1 perl $INCLUDES -cw 2>&1 | grep -v OK +find_perl_files "$@" | xargs -L 1 perl $INCLUDES -cw 2>&1 | grep -v OK diff --git a/src/tools/pgindent/README b/src/tools/pgindent/README index b2b134ee6a2..f5fdfc5d2ff 100644 --- a/src/tools/pgindent/README +++ b/src/tools/pgindent/README @@ -45,7 +45,7 @@ DOING THE INDENT RUN: 4) Indent the Perl code using perltidy: - src/tools/pgindent/pgperltidy + src/tools/pgindent/pgperltidy . If you want to use some perltidy version that's not in your PATH, first set the PERLTIDY environment variable to point to it. diff --git a/src/tools/pgindent/pgperltidy b/src/tools/pgindent/pgperltidy index 5e704119eb7..6af27d21d55 100755 --- a/src/tools/pgindent/pgperltidy +++ b/src/tools/pgindent/pgperltidy @@ -9,4 +9,4 @@ PERLTIDY=${PERLTIDY:-perltidy} . src/tools/perlcheck/find_perl_files -find_perl_files | xargs $PERLTIDY --profile=src/tools/pgindent/perltidyrc +find_perl_files "$@" | xargs $PERLTIDY --profile=src/tools/pgindent/perltidyrc |