mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-10-31 11:22:27 +00:00
0db9774360
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1334 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
37 lines
870 B
Bash
37 lines
870 B
Bash
#!/bin/sh
|
|
|
|
found=""
|
|
|
|
find . -name .svn -prune -o -type f \
|
|
| xargs grep -l '^#!.*perl' \
|
|
| xargs grep -hE '^\s*(use|require) ' \
|
|
| while read mod; do
|
|
pkg=$( awk '{ sub(";", "", $2);
|
|
gsub("::", "-", $2);
|
|
print $2 }' <<<"$mod" \
|
|
| tr '[:upper:]' '[:lower:]' )
|
|
|
|
if apt-cache show lib${pkg}-perl >/dev/null 2>&1; then
|
|
|
|
pkgname="lib${pkg}-perl"
|
|
|
|
case "$found" in
|
|
*$pkgname*) continue ;;
|
|
*)
|
|
[ -n "$found" ] && echo -n ", "
|
|
echo -n "$pkgname"
|
|
found="$found $pkgname"
|
|
;;
|
|
esac
|
|
|
|
elif perl <<<"$mod" >/dev/null 2>&1; then
|
|
continue
|
|
elif [ "$1" == "-w" ]; then
|
|
echo
|
|
echo "warning: $pkg not found and perl doesn't like \"$mod\"" >&2
|
|
fi
|
|
done
|
|
echo
|
|
|
|
# vim: set sts=2 sw=2 et:
|