Make the multiline regex have an upper bound, instead of being unbounded,

as newer perls have a larger stack frame, which cause them to segfault
quicker with larger inputs.

ChangeLog

@@ -1,3 +1,9 @@
+Thu Sep  5 16:31:11 CDT 2002 Adam Heath <doogie@debian.org>
+
+  * scripts/install-info.pl: Make the multiline regex have an upper bound,
+    instead of being unbounded, as newer perls have a larger stack frame,
+    which cause them to segfault quicker with larger inputs.
+
 Thu Sep  5 16:29:39 CDT 2002 Adam Heath <doogie@debian.org>
 
   * version-nr, debian/changelog: Set 1.10.8 version.

debian/changelog

@@ -1,5 +1,9 @@
 dpkg (1.10.8) unstable; urgency=low
 
+  * Make the multiline regex have an upper bound, instead of being
+    unbounded, as newer perls have a larger stack frame, which cause them
+    to segfault quicker with larger inputs.  Closes: #159756.
+
  -- Adam Heath <doogie@debian.org>  UNRELEASED
 
 dpkg (1.10.7) unstable; urgency=low

scripts/install-info.pl

@@ -146,7 +146,7 @@ if (!$remove) {
 	}
 
         close(IF); &checkpipe;
-        if ($asread =~ m/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n){2,}/) {
+        if ($asread =~ m/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n){2}/) {
             $infoentry= $asread;
             $multiline= 1;
             $fileinentry = $2;