diff options
| author | Russ Allbery <rra@stanford.edu> | 2002-08-03 13:56:42 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-22 12:05:57 +0000 |
| commit | 11f72409a81d362ab963d688ed5b84835e953fd8 (patch) | |
| tree | 551d2a5cedd8d66d5d323d69c39f6501da5c616b /lib/Pod/Text | |
| parent | caffd4cf829def5d43751df796fc8cbd66c0794d (diff) | |
| download | perl-11f72409a81d362ab963d688ed5b84835e953fd8.tar.gz | |
podlators 1.24 released
Message-ID: <ylbs8jff9h.fsf@windlord.stanford.edu>
p4raw-id: //depot/perl@17753
Diffstat (limited to 'lib/Pod/Text')
| -rw-r--r-- | lib/Pod/Text/Overstrike.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Pod/Text/Overstrike.pm b/lib/Pod/Text/Overstrike.pm index 503f4003ad..8ba918396c 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.9 2002/07/15 05:46:00 eagle Exp $ +# $Id: Overstrike.pm,v 1.10 2002/08/04 03:35:01 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.09; +$VERSION = 1.10; ############################################################################## @@ -85,7 +85,8 @@ sub heading { my ($self, $text, $line, $indent, $marker) = @_; $self->item ("\n\n") if defined $$self{ITEM}; $text .= "\n" if $$self{loose}; - $self->output (' ' x $indent . $text . "\n"); + my $margin = ' ' x ($$self{margin} + $indent); + $self->output ($margin . $text . "\n"); } # Fix the various formatting codes. |