Continue to read all data from a pipe, until EOF

ChangeLog

@@ -1,3 +1,8 @@
+Sat Feb  2 22:59:06 CET 2002 Wichert Akkerman <wakkerma@debian.org>
+
+  * scripts/install-info.pl: Continue to read all data from a pipe, until
+    EOF.  
+
 Sat Feb  2 22:52:50 CET 2002 Wichert Akkerman <wakkerma@debian.org>
 
   * scripts/dpkg-gencontrol: Make dpkg-gencontrol not warn about Uploaders.

scripts/install-info.pl

@@ -141,6 +141,10 @@ if (!$remove) {
 	    }
 	}
         while(<IF>) { last if m/^END-INFO-DIR-ENTRY$/; $asread.= $_; }
+	if ($pipeit) {
+	    while (<IF>) {};
+	}
+
         close(IF); &checkpipe;
         if ($asread =~ m/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n){2,}/) {
             $infoentry= $asread;
@@ -183,6 +187,9 @@ END
                 while(<IF>) { last if m/^\s*$/; $asread.= $_; }
                 $description= $asread;
             }
+	    if ($pipeit) {
+		while (<IF>) {};
+	    }
             close(IF); &checkpipe;
         }