Check Perl integrity with -e

Perl · Jul 13, 2024 · 5d75d5d · 5d75d5d
1 parent afff10b
commit 5d75d5d
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/Configure b/Configure
@@ -2135,10 +2135,16 @@ if test -f "$rsrc/MANIFEST"; then
 	rm -f missing
 	tmppwd=`pwd`
 	for filelist in x??; do
-		(cd "$rsrc"; ls `cat "$tmppwd/$filelist"` \
-			>/dev/null 2>>"$tmppwd/missing")
+		cd "$tmppwd/$rsrc";
+		for file in `cat "$tmppwd/$filelist"`; do
+			if [ ! -e $file ]; then
+				echo "$file" >> "$tmppwd/missing"
+			fi
+		done
 	done
+	cd "$tmppwd"
 	if test -s missing; then
+		echo "The following files do not exist:"
 		cat missing >&4
 		cat >&4 <<'EOM'