We weren't adding '\n' when printing out the reformated info text.

diff --git a/ChangeLog b/ChangeLog
index 52ff702644595b959cfe4566571c18f3b0578444..7df17cd5db12af230bc07e2ef89a04db873b7fee 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+Sun Oct  7 19:38:56 CDT 2001 Adam Heath <doogie@debian.org>
+
+  * scripts/install-info.pl: oops.  We weren't adding '\n' when printing
+    out the reformated info text.
+ 
+Sun Oct  7 05:00:02 CDT 2001 Adam Heath <doogie@debian.org>
+
+  * scripts/install-info.pl: Don't print out the info entry every time we
+    are called.
+
 Sun Oct  7 03:12:35 CDT 2001 Adam Heath <doogie@debian.org>
 
   * debian/control: Several fixes:

diff --git a/scripts/install-info.pl b/scripts/install-info.pl
index f2409806618a352e74979a44cd1f404c2bbbf682..15de79c9d8cc41b56804a819b930d4f3047d15c6 100755 (executable)
--- a/scripts/install-info.pl
+++ b/scripts/install-info.pl
@@ -400,11 +400,10 @@ foreach ( @work ) {
                push @newwork, $_;
        }
 }
-@work = @newwork;
 
 if (!$nowrite) {
     open(NEW,"> $infodir/dir.new") || &ulquit("create $infodir/dir.new: $!");
-    print(NEW @head,@work) || &ulquit("write $infodir/dir.new: $!");
+    print(NEW @head,join("\n",@newwork)) || &ulquit("write $infodir/dir.new: $!");
     close(NEW) || &ulquit("close $infodir/dir.new: $!");
 
     unlink("$infodir/dir.old");