diff options
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 3f7aa2e6..73736fd 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 cb8ff46..964c033 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.) |