Bug#159756: [doogie@debian.org: Re: install-info vs. perl 5.8]
Package: dpkg
Version: 1.10.6
Severity: normal
----- Forwarded message from Adam Heath <doogie@debian.org> -----
Date: Thu, 5 Sep 2002 12:35:04 -0500 (CDT)
From: Adam Heath <doogie@debian.org>
Subject: Re: install-info vs. perl 5.8
To: Daniel Jacobowitz <dan@debian.org>
cc: <debian-dpkg@lists.debian.org>, <debian-perl@lists.debian.org>,
Jack Howarth <howarth@bromo.msbb.uc.edu>
On Thu, 5 Sep 2002, Daniel Jacobowitz wrote:
> [CC me if you reply to debian-dpkg]
>
> So... apparently, because of changes in Perl, an existing bug has become
> much more easily triggered. It won't be fixed without a major regex
> rewrite. Thus, I think it's reasonable to work around it. The patch even
> improves the performance of install-info at no loss of functionality...
>
> --- /usr/sbin/install-info 2002-07-14 16:19:49.000000000 -0400
> +++ install-info 2002-09-05 13:08:05.000000000 -0400
> @@ -146,7 +146,7 @@
> }
>
> close(IF); &checkpipe;
> - if ($asread =~ m/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n){2,}/) {
> + if ($asread =~ m/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n){2}/) {
> $infoentry= $asread;
> $multiline= 1;
> $fileinentry = $2;
>
>
> This changes the value if $fileinentry, potentially, but it's dead on this
> code path anyway. It'll always be reset in the if (length ($infoentry))
> block below. Sound reasonable?
Refile this as a bug, and then I'll upload .8.
----- End forwarded message -----
--
Daniel Jacobowitz
MontaVista Software Debian GNU/Linux Developer
Reply to: