Change formatting of info.dir.

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

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
 

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, $_;
 	}