Subversion Repositories DevTools

Rev

Rev 313 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 313 Rev 315
Line 15... Line 15...
15
# Modules and declarations
15
# Modules and declarations
16
############################################################################
16
############################################################################
17
 
17
 
18
package Pod::PlainText;
18
package Pod::PlainText;
19
use strict;
19
use strict;
20
use JatsError;
-
 
21
 
20
 
22
require 5.005;
21
require 5.005;
23
 
22
 
24
use Carp qw(carp croak);
23
use Carp qw(carp croak);
25
use Pod::Select ();
24
use Pod::Select ();
Line 482... Line 481...
482
    unless (defined $indent) { $indent = $$self{indent} }
481
    unless (defined $indent) { $indent = $$self{indent} }
483
    my $space = ' ' x $indent;
482
    my $space = ' ' x $indent;
484
    $space =~ s/^ /:/ if $$self{alt};
483
    $space =~ s/^ /:/ if $$self{alt};
485
    if (!$_ || /^\s+$/ || ($$self{MARGIN} - $indent < length ($tag) + 1)) {
484
    if (!$_ || /^\s+$/ || ($$self{MARGIN} - $indent < length ($tag) + 1)) {
486
        my $margin = $$self{MARGIN};
485
        my $margin = $$self{MARGIN};
487
#        $$self{MARGIN} = $indent;  # ERG Deleted. Appears to get the first one wrong
486
        $$self{MARGIN} = $indent;
488
        my $output = $self->reformat ($tag);
487
        my $output = $self->reformat ($tag);
489
        $output =~ s/\n*$/\n/;
488
        $output =~ s/\n*$/\n/;
490
        $self->output ($output);
489
        $self->output ($output);
491
        $$self{MARGIN} = $margin;
490
        $$self{MARGIN} = $margin;
492
        $self->output ($self->reformat ($_)) if /\S/;
491
        $self->output ($self->reformat ($_)) if /\S/;