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
No related branches found
No related tags found
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.
Finish editing this message first!
Please register or to comment