From: Adam Heath <doogie@debian.org>
Date: Sat, 25 Oct 2003 20:46:08 +0000 (+0000)
Subject: Change formatting of info.dir.
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=078ce99d77e1aed0f8dcb4bbdd2b7295739af661;p=dpkg

Change formatting of info.dir.
---

diff --git a/ChangeLog b/ChangeLog
index 834a633a..8fab6258 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Oct 25 15:45:48 CDT 2003 Adam Heath <doogie@debian.org>
+
+  * scripts/install-info.pl: Change formatting of info.dir.
+
 Sat Oct 25 15:04:41 CDT 2003 Adam Heath <doogie@debian.org>
 
   * lib/mlib.c, include/dpkg.h.in, utils/md5sum.c: Change limit and the
diff --git a/debian/changelog b/debian/changelog
index aab6a4b0..6237ed62 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -55,6 +55,8 @@ dpkg (1.10.16) unstable; urgency=low
   * Fix md5sum when handling large files.  Closes: #162691
   * Fix dpkg-checkbuilddeps calling of parsedep.  It wasn't setting
     use_arch.  Closes: #212796.
+  * Joey Hess <joeyh@debian.org>:
+    Change formatting of info.dir.  Closes: #167379.
 
  -- Adam Heath <doogie@debian.org>  Tue, 23 Sep 2003 12:12:38 -0500
 
diff --git a/scripts/install-info.pl b/scripts/install-info.pl
index 19f3eab5..6d1ccc23 100755
--- a/scripts/install-info.pl
+++ b/scripts/install-info.pl
@@ -421,12 +421,20 @@ for ($i=0; $i<=$#work; $i++) {
 }
 @work = @work[0..$j];
 
+my $descalign=40;
+
 @newwork = ();
 foreach ( @work ) {
 	if ( m/^(\* *[^:]+: *\(\w[^\)]*\)[^.]*\.)[ \t]*(.*)/ ||
 		m/^([ \t]+)(.*)/ ) {
-		$_ = $1 . ( " " x ( $length - length($1) + 1 ) ) . $2;
-		push @newwork, split( "\n", wrap('', " " x ( $length + 1 ), $_ ) );
+		if (length $1 >= $descalign) {
+			push @newwork, $1;
+			$_=(" " x $descalign) . $2;
+		}
+		else {
+			$_ = $1 . (" " x ($descalign - length $1)) . $2;
+		}
+		push @newwork, split( "\n", wrap('', " " x $descalign, $_ ) );
 	} else {
 		push @newwork, $_;
 	}