diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 04:12:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 04:12:06 +0000 |
| commit | a03529765bf72991866a6d6b85c71fba6bb2bf17 (patch) | |
| tree | 8e5d24335846d9107601184fbf6d8c3491946bb4 | |
| parent | 379b478b73863f58292cf711becb478be0b7a643 (diff) | |
| download | perl-a03529765bf72991866a6d6b85c71fba6bb2bf17.tar.gz | |
temporarily disable blank line warning from Pod::Parser until
it can be made optional
p4raw-id: //depot/perl@5506
| -rw-r--r-- | lib/Pod/Parser.pm | 21 | ||||
| -rw-r--r-- | t/pod/poderrs.xr | 1 |
2 files changed, 11 insertions, 11 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index 1abd690971..1bd440bbc4 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -1064,16 +1064,17 @@ sub parse_from_filehandle { next unless (($textline =~ /^(\s*)$/) && (length $paragraph)); ## Issue a warning about any non-empty blank lines - if (length($1) > 1 and ! $self->{_CUTTING}) { - my $errorsub = $self->errorsub(); - my $file = $self->input_file(); - $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; - my $errmsg = "*** WARNING: line containing nothing but whitespace". - " in paragraph at line $nlines in file $file\n"; - (ref $errorsub) and &{$errorsub}($errmsg) - or (defined $errorsub) and $self->$errorsub($errmsg) - or warn($errmsg); - } +# XXX avoid warning until Brad has a chance to make this optional --GSAR +# if (length($1) > 1 and ! $self->{_CUTTING}) { +# my $errorsub = $self->errorsub(); +# my $file = $self->input_file(); +# $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; +# my $errmsg = "*** WARNING: line containing nothing but whitespace". +# " in paragraph at line $nlines in file $file\n"; +# (ref $errorsub) and &{$errorsub}($errmsg) +# or (defined $errorsub) and $self->$errorsub($errmsg) +# or warn($errmsg); +# } ## Now process the paragraph parse_paragraph($self, $paragraph, ($nlines - $plines) + 1); diff --git a/t/pod/poderrs.xr b/t/pod/poderrs.xr index 3e9c42b874..17baee91d1 100644 --- a/t/pod/poderrs.xr +++ b/t/pod/poderrs.xr @@ -6,7 +6,6 @@ *** WARNING: unterminated B<...> at line 35 in file pod/poderrs.t *** WARNING: unterminated I<...> at line 34 in file pod/poderrs.t *** WARNING: unterminated C<...> at line 37 in file pod/poderrs.t -*** WARNING: line containing nothing but whitespace in paragraph at line 45 in file pod/poderrs.t *** ERROR: =item without previous =over at line 52 in file pod/poderrs.t *** ERROR: =back without previous =over at line 56 in file pod/poderrs.t *** ERROR: =over on line 60 without closing =back (at head2) at line 64 in file pod/poderrs.t |