From 854f6cec48a550299aa0b7a1d3b7f199b4d3ec9a Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Mon, 29 Nov 1999 05:56:08 +0000
Subject: r317: * Added -X option, which makes it not examine some files. This
 is useful in rare cases. Closes: #51100 * Always pass "-dDepends" before the
 list of files, which makes it easier to specify other -d parameters in the
 uparams, and doesn't otherwise change the result at all.

---
 dh_shlibdeps | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'dh_shlibdeps')

diff --git a/dh_shlibdeps b/dh_shlibdeps
index 3fec714c..f6ae235e 100755
--- a/dh_shlibdeps
+++ b/dh_shlibdeps
@@ -13,8 +13,15 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 	my @filelist;
 	my $ff;
 
-	# Generate a list of all ELF binaries in the package.
-	foreach $file (split(/\n/,`find $TMP -type f \\( -perm +111 -or -name "*.so*" \\)`)) {
+	# Generate a list of ELF binaries in the package, ignoring any
+	# we were told to exclude.
+	if (! defined($dh{EXCLUDE_FIND}) || $dh{EXCLUDE_FIND} eq '') {
+		$find_options="";
+	}
+	else {
+		$find_options="! \\( $dh{EXCLUDE_FIND} \\)";
+	}
+	foreach $file (split(/\n/,`find $TMP -type f \\( -perm +111 -or -name "*.so*" \\) $find_options`)) {
 		# TODO: this is slow, optimize. Ie, file can run once on multiple files..
 		$ff=`file "$file"`;
 		if ($ff=~m/ELF/ && $ff!~/statically linked/) {
@@ -27,6 +34,6 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 	}
 
 	if (@filelist) {
-		doit("dpkg-shlibdeps","-Tdebian/$EXT\substvars",@{$dh{U_PARAMS}},@filelist);
+		doit("dpkg-shlibdeps","-Tdebian/$EXT\substvars",@{$dh{U_PARAMS}},'-dDepends',@filelist);
 	}
 }
-- 
cgit v1.2.3