From 41d440eda6c7d3769e7a8c07a5201d2429c0db1b Mon Sep 17 00:00:00 2001 From: Adam Heath Date: Thu, 5 Sep 2002 21:31:54 +0000 Subject: [PATCH] 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 | 6 ++++++ debian/changelog | 4 ++++ scripts/install-info.pl | 2 +- 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 71770924..533b0b9c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +Thu Sep 5 16:31:11 CDT 2002 Adam Heath + + * 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 * version-nr, debian/changelog: Set 1.10.8 version. diff --git a/debian/changelog b/debian/changelog index b8043ba9..0897fcaa 100644 --- a/debian/changelog +++ b/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 UNRELEASED dpkg (1.10.7) unstable; urgency=low diff --git a/scripts/install-info.pl b/scripts/install-info.pl index b497192b..eecd2625 100755 --- a/scripts/install-info.pl +++ b/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; -- 2.39.5