Skip to content
Snippets Groups Projects
Commit 5f21766b authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

pridana cleanup sekce

parent aad4d53d
Branches
Tags
No related merge requests found
...@@ -12,11 +12,14 @@ if [[ -z $1 || ! -d $1 ]]; then ...@@ -12,11 +12,14 @@ if [[ -z $1 || ! -d $1 ]]; then
fi fi
modules_file="/tmp/warden-modules.txt" modules_file="/tmp/warden-modules.txt"
sed '/^use [A-Z]/!d; /Warden/d' `find $1 -type f` 2>/dev/null | cut -f 2 -d " " | sed 's/;//' | sort -u > $modules_file sed '/^use [A-Z]/!d; /Warden/d' $(find $1 -type f) 2>/dev/null | cut -f 2 -d " " | sed 's/;//' | sort -u > "$modules_file"
for module in $(<$modules_file); for module in $(< "$modules_file");
do do
perl -e "eval { require $module; }; if (\$@) { print \"$module: version not found\n\"; } else { print \"$module >= \$$module::VERSION\n\"}" perl -e "eval { require $module; }; if (\$@) { print \"$module: version not found\n\"; } else { print \"$module >= \$$module::VERSION\n\"}"
done done
# cleanup section
rm -f "$modules_file"
exit 0 exit 0
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment