Quickly free up space with perl

rust-lang · Dec 12, 2024 · 4929bd6 · 4929bd6
1 parent ce5b7e5
commit 4929bd6
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/ci/scripts/free-disk-space.sh b/src/ci/scripts/free-disk-space.sh
@@ -6,11 +6,8 @@
 # ======
 
 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 "$@"
+    perl -e 'for(<*>){((stat)[9]<(unlink))}'
 }
 
 list_installed_dpkg() {