From 023d6f0b262810458be5f2a1c2d7e9db7e69a858 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 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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