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/;