This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
temporarily disable blank line warning from Pod::Parser until
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Mar 2000 04:12:06 +0000 (04:12 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Mar 2000 04:12:06 +0000 (04:12 +0000)
it can be made optional

p4raw-id: //depot/perl@5506

lib/Pod/Parser.pm
t/pod/poderrs.xr

index 1abd690..1bd440b 100644 (file)
@@ -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);
index 3e9c42b..17baee9 100644 (file)
@@ -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