abuild: warn if world writable directories are found

abuild.in

@@ -558,6 +558,12 @@ prepare_subpackages() {
 		warning "Found /usr/share/locale"
 		warning "Maybe add \$pkgname-lang to subpackages?"
 	fi
+	# check directory permissions
+	i=$(find "$pkgdir" -type d -perm -777 | sed "s|^$pkgdir|\t|")
+	if [ -n "$i" ]; then
+		warning "World writeable directories found:"
+		echo "$i"
+	fi
 }
 
 default_lang() {