Fix "stripping trailing /" message from dpkg-statoverride.

ChangeLog

@@ -1,3 +1,8 @@
+Sat Sep 13 16:04:37 CDT 2003 Adam Heath <doogie@debian.org>
+
+  * scripts/dpkg-statoverride.pl: Fix "stripping trailing /" message from
+    dpkg-statoverride.
+
 Sat Sep 13 15:56:13 CDT 2003 Adam Heath <doogie@debian.org>
 
   * automake/tools.m4, dselect/Makefile.in, methods/disk.setup,

debian/changelog

@@ -26,6 +26,9 @@ dpkg (1.10.11) unstable; urgency=low
   * Paul Eggert <eggert@CS.UCLA.EDU>:
     Apply patch to make dpkg work with POSIX 1003.1-2001.  Closes:
     #204894
+  * Joey Hess <joeyh@debian.org>:
+    Fix "stripping trailing /" message from dpkg-statoverride.  Closes:
+    #203782
 
  -- Wichert Akkerman <debian@extern.wiggy.net>  UNRELEASED
 

scripts/dpkg-statoverride.pl

@@ -98,7 +98,7 @@ if ($mode eq "add") {
 	(($mode<0) or (oct($mode)>07777)) && &badusage("illegal mode $mode");
 	$file= $ARGV[3];
 	$file =~ m/\n/ && &badusage("file may not contain newlines");
-	$file =~ s,/*$,, && print STDERR "stripping trailing /\n";
+	$file =~ s,/+$,, && print STDERR "stripping trailing /\n";
 
 	if (defined $owner{$file}) {
 		print STDERR "An override for \"$file\" already exists, ";
@@ -125,7 +125,7 @@ if ($mode eq "add") {
 } elsif ($mode eq "remove") {
 	@ARGV==1 || &badusage("--remove needs one arguments");
 	$file=$ARGV[0];
-	$file =~ s,/*$,, && print STDERR "stripping trailing /\n";
+	$file =~ s,/+$,, && print STDERR "stripping trailing /\n";
 	if (not defined $owner{$file}) {
 		print STDERR "No override present.\n";
 		exit(0) if ($doforce); 
@@ -144,7 +144,7 @@ if ($mode eq "add") {
 		s/\W/\\$&/g;
 		s/\\\?/./g;
 		s/\\\*/.*/g;
-		s,/*$,, && print STDERR "stripping trailing /\n";
+		s,/+$,, && print STDERR "stripping trailing /\n";
 		push(@list,"^$_\$");
 	}
 	$pat= join('|',@list);