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 | |
parent | 3ff51205709ba6abfcd537ac635b4c0085c51db7 (diff) | |
download | gcc-3f896fc299debb1155fb395cee39c927c7be23fe.tar.gz |
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')
-rw-r--r-- | contrib/ChangeLog | 6 | ||||
-rwxr-xr-x | contrib/texi2pod.pl | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/contrib/ChangeLog b/contrib/ChangeLog index 3f7aa2e6fd3..73736fd69cf 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,9 @@ +2001-01-15 Joseph S. Myers <jsm28@cam.ac.uk> + + * texi2pod.pl: Fix regular expression for @r to avoid exponential + recursion. From Russ Allbery <rra@stanford.edu>. Remove perl + version check. + 2001-01-15 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * warn_summary (stageNfilter): Update for recent changes in 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.) |