Check Perl integrity with -e

Perl · Jul 17, 2024 · 023d6f0 · 023d6f0
1 parent afff10b
commit 023d6f0
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Configure b/Configure
@@ -2135,10 +2135,14 @@ 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")
+		for file in `cat "$tmppwd/$filelist"`; do
+			if [ ! -e "$rsrc/$file" ]; then
+				echo "$file" >> "$tmppwd/missing"
+			fi
+		done
 	done
 	if test -s missing; then
+		echo "The following files do not exist:" >&4
 		cat missing >&4
 		cat >&4 <<'EOM'