From: Russ Allbery Date: Sat, 16 Feb 2002 21:42:56 +0000 (-0800) Subject: podlators 1.21 released X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21e6de9edc1c8e10c36cd56202e335d1f481650e;p=p5sagit%2Fp5-mst-13.2.git podlators 1.21 released Message-Id: p4raw-id: //depot/perl@14728 --- diff --git a/lib/Pod/Text/Overstrike.pm b/lib/Pod/Text/Overstrike.pm index bd4c379..8b19fb4 100644 --- a/lib/Pod/Text/Overstrike.pm +++ b/lib/Pod/Text/Overstrike.pm @@ -1,5 +1,5 @@ # Pod::Text::Overstrike -- Convert POD data to formatted overstrike text -# $Id: Overstrike.pm,v 1.7 2002/01/28 01:55:42 eagle Exp $ +# $Id: Overstrike.pm,v 1.8 2002/02/17 04:38:03 eagle Exp $ # # Created by Joe Smith 30-Nov-2000 # (based on Pod::Text::Color by Russ Allbery ) @@ -36,7 +36,7 @@ use vars qw(@ISA $VERSION); # Don't use the CVS revision as the version, since this module is also in Perl # core and too many things could munge CVS magic revision strings. This # number should ideally be the same as the CVS revision in podlators, however. -$VERSION = 1.07; +$VERSION = 1.08; ############################################################################## @@ -109,8 +109,12 @@ sub wrap { my $spaces = ' ' x $$self{MARGIN}; my $width = $$self{width} - $$self{MARGIN}; while (length > $width) { - if (s/^((?:(?:[^\n][\b])?[^\n]){0,$width})(\Z|\s+)// - || s/^((?:(?:[^\n][\b])?[^\n]){$width})//) { + # This regex represents a single character, that's possibly underlined + # or in bold (in which case, it's three characters; the character, a + # backspace, and a character). Use [^\n] rather than . to protect + # against odd settings of $*. + my $char = '(?:[^\n][\b])?[^\n]'; + if (s/^((?>$char){0,$width})(?:\Z|\s+)//) { $output .= $spaces . $1 . "\n"; } else { last;