diff options
| author | Joseph Myers <jsm28@cam.ac.uk> | 2001-01-15 23:32:25 +0000 |
|---|---|---|
| committer | Joseph Myers <jsm28@gcc.gnu.org> | 2001-01-15 23:32:25 +0000 |
| commit | 3f896fc299debb1155fb395cee39c927c7be23fe (patch) | |
| tree | 59804907045d19c07aea917b226efd5969cf821e /contrib/texi2pod.pl | |
| parent | 3ff51205709ba6abfcd537ac635b4c0085c51db7 (diff) | |
texi2pod.pl: Fix regular expression for @r to avoid exponential recursion.
contrib:
* texi2pod.pl: Fix regular expression for @r to avoid exponential
recursion. From Russ Allbery <rra@stanford.edu>. Remove perl
version check.
gcc:
* configure.in, configure: Revert previous patch requiring perl
5.6.0.
From-SVN: r39053
Diffstat (limited to 'contrib/texi2pod.pl')
| -rwxr-xr-x | contrib/texi2pod.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl index cb8ff466f19..964c033df5e 100755 --- a/contrib/texi2pod.pl +++ b/contrib/texi2pod.pl @@ -4,8 +4,6 @@ # markup to Perl POD format. It's intended to be used to extract # something suitable for a manpage from a Texinfo document. -use v5.6.0; - $output = 0; $skipping = 0; %sects = (); @@ -262,7 +260,7 @@ sub postprocess s/\@(?:dmn|math)\{([^\}]*)\}/$1/g; # Handle @r inside bold. - 1 while s/B<((?:[^<>]*|I<[^<>*]*>)*)R<([^>]*)>/B<$1>${2}B</g; + 1 while s/B<((?:[^<>]|I<[^<>]*>)*)R<([^>]*)>/B<$1>${2}B</g; # Cross references are thrown away, as are @noindent and @refill. # (@noindent is impossible in .pod, and @refill is unnecessary.) |