Subversion Repositories DevTools

Rev

Rev 311 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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