- fix: find-requires.perl needed update (#23450).

CVS patchset: 4424
CVS date: 2001/01/10 22:19:55

1 files changed, 2 insertions, 26 deletions

diff --git a/scripts/find-requires.perl b/scripts/find-requires.perl
index a70281dfc..a4571007a 100755
--- a/scripts/find-requires.perl
+++ b/scripts/find-requires.perl
@@ -6,19 +6,7 @@
 ulimit -c 0
 
 filelist=`sed "s/['\"]/\\\&/g"`
-exelist=`echo $filelist | xargs -r file | fgrep executable | cut -d: -f1 `
 scriptlist=`echo $filelist | xargs -r file | egrep ":.* (commands|script) " | cut -d: -f1 `
-liblist=`echo $filelist | xargs -r file | grep "shared object" | cut -d : -f1 `
-
-for f in $exelist; do
-    if [ -x $f ]; then
-	ldd $f | awk '/=>/ { print $1 }'
-    fi
-done | sort -u | sed "s/['\"]/\\\&/g" | xargs -r -n 1 basename | grep -v 'libNoVersion.so' | grep -v '4[um]lib.so' | sort -u
-
-for f in $liblist; do
-    ldd $f | awk '/=>/ { print $1 }'
-done | sort -u | sed "s/['\"]/\\\&/g" | xargs -r -n 1 basename | grep -v 'libNoVersion.so' | grep -v '4[um]lib.so' | sort -u
 
 perllist=
 for f in $scriptlist; do
@@ -27,20 +15,6 @@ for f in $scriptlist; do
     case $interp in
     */perl) perllist="$perllist $f" ;;
     esac
-    echo $interp
-done | sort -u
-
-for f in $liblist $exelist ; do
-    objdump -p $f | awk '
-	BEGIN { START=0; LIBNAME=""; }
-	/Version References:/ { START=1; }
-	/required from/ && (START==1) {
-	    sub(/:/, "", $3);
-	    LIBNAME=$3;
-	}
-	(START==1) && (LIBNAME!="") && ($4!="") { print LIBNAME "(" $4 ")"; }
-	/^$/ { START=0; }
-    '
 done | sort -u
 
 #
@@ -48,3 +22,5 @@ done | sort -u
 set -x
 [ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
 	echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
+set +x
+echo $filelist | /usr/lib/rpm/find-requires