From 118269e577000827f09268d54db87a453abbc176 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Fri, 16 Jan 2004 03:43:41 +0000
Subject: r1638:    * dh_install: add missing parens to the $installed regexp.
 Closes: #227963    * dh_install: improve wording of --list-missing messages

---
 dh_install | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/dh_install b/dh_install
index e43229a5..45a1dfce 100755
--- a/dh_install
+++ b/dh_install
@@ -198,14 +198,18 @@ if ($dh{LIST_MISSING} || $dh{FAIL_MISSING}) {
 	
 	my @missing;
 	my $installed=join("|", @installed);
-	$installed=qr{^$installed$};
+	$installed=qr{^($installed)$};
 	find(sub {
 		-f || -l || return;
 		$_="$File::Find::dir/$_";
-		push @missing, $_ unless /$installed/ || excludefile($_);
+		if (! /$installed/ && ! excludefile($_)) {
+			my $file=$_;
+			$file=~s/^\Q$srcdir\E\///;
+			push @missing, $file;
+		}
 	}, $srcdir);
 	if (@missing) {
-		warning "$_ exists in debian/tmp but not installed to anywhere" foreach @missing;
+		warning "$_ exists in debian/tmp but is not installed to anywhere" foreach @missing;
 		if ($dh{FAIL_MISSING}) {
 			error("missing files, aborting");
 		}
-- 
cgit v1.2.3