Quickly free up space with perl

Author: whiteio

src/ci/scripts/free-disk-space.sh

@@ -4,13 +4,10 @@
 # # ======
 # MACROS
 # ======
-
+set -e
 fast_rmdir() {
-if [[ -d "$1" ]] && [[ -n "$1" ]] && [[ ! "$1" = "/" ]] && [[ ! "$1" = "~" ]]; then
-    echo "Removing directory: $1"
-    sudo find "$1" -type f -delete -print | wc -l
-    sudo rm -rf "$1"
-fi
+    cd "$@"
+    sudo perl -e 'for(<*>){((stat)[9]<(unlink))}'
 }
 
 list_installed_dpkg() {