From 5d75d5d5c4b884f9662956c7f010727895d9f412 Mon Sep 17 00:00:00 2001
From: hongjinghao <hongjinghao@huawei.com>
Date: Sat, 13 Jul 2024 11:26:56 +0800
Subject: [PATCH] Check Perl integrity with -e

---
 Configure | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Configure b/Configure
index 4da7088bffdb3..faf17ab32dd33 100755
--- 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'