From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Mar 2000 04:12:06 +0000 (+0000)
Subject: temporarily disable blank line warning from Pod::Parser until
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eaf840779373130f95f7bd459b3864c78c698e28;p=p5sagit%2Fp5-mst-13.2.git

temporarily disable blank line warning from Pod::Parser until
it can be made optional

p4raw-id: //depot/perl@5506
---

diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index 1abd690..1bd440b 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 3e9c42b..17baee9 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