mirror of
https://github.com/postgres/postgres.git
synced 2025-11-25 12:03:53 +03:00
15 lines
395 B
Plaintext
15 lines
395 B
Plaintext
# src/tools/perlcheck/find_perl_files
|
|
|
|
# shell function to find all perl files in the source tree
|
|
|
|
find_perl_files () {
|
|
{
|
|
# take all .pl and .pm files
|
|
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 |
|
|
egrep -i ':.*perl[0-9]*\>' |
|
|
cut -d: -f1
|
|
} | sort -u | grep -v '^\./\.git/'
|
|
}
|