diff options
| author | Russ Allbery <rra@stanford.edu> | 2002-02-16 13:42:56 -0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-17 16:15:09 +0000 |
| commit | 21e6de9edc1c8e10c36cd56202e335d1f481650e (patch) | |
| tree | 2eef85914dab2f374564e5c3b02dffc20ba0d684 /lib/Pod | |
| parent | 87582a92947b14e9eada0c156f266b59de2f8406 (diff) | |
| download | perl-21e6de9edc1c8e10c36cd56202e335d1f481650e.tar.gz | |
podlators 1.21 released
Message-Id: <yladu8irz3.fsf@windlord.stanford.edu>
p4raw-id: //depot/perl@14728
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Text/Overstrike.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/Pod/Text/Overstrike.pm b/lib/Pod/Text/Overstrike.pm index bd4c379820..8b19fb4dfe 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 <Joe.Smith@inwap.com> 30-Nov-2000 # (based on Pod::Text::Color by Russ Allbery <rra@stanford.edu>) @@ -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; |