podchecker relaxations from Michael Stevens.

p4raw-id: //depot/perl@9207

2 files changed, 2 insertions, 17 deletions

diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index 35d0186a99..d6fbfff992 100644
--- a/lib/Pod/Checker.pm
+++ b/lib/Pod/Checker.pm
@@ -222,11 +222,6 @@ This is most probably something you do not want.
 
 =end _disabled_
 
-=item * No numeric argument for =over
-
-The C<=over> command is supposed to have a numeric argument (the
-indentation).
-
 =item * previous =item has no contents
 
 There is a list C<=item> right above the flagged line that has no
@@ -287,11 +282,6 @@ There are some warnings wrt. malformed hyperlinks.
 
 =over 4
 
-=item * collapsing newlines to blanks
-
-A hyperlink LE<lt>...E<gt> spans more than one line. This may indicate
-and error.
-
 =item * ignoring leading/trailing whitespace in link
 
 There is whitespace at the beginning or the end of the contents of 
@@ -822,10 +812,6 @@ sub command {
             my $indent = 4; # default
             if($arg && $arg =~ /^\s*(\d+)\s*$/) {
                 $indent = $1;
-            } else {
-                $self->poderror({ -line => $line, -file => $file,
-                     -severity => 'WARNING', 
-                     -msg => "No numeric argument for =over"});
             }
             # start a new list
             $self->_open_list($indent,$line,$file);
diff --git a/lib/Pod/ParseUtils.pm b/lib/Pod/ParseUtils.pm
index 6703a7fbc8..7d994c750b 100644
--- a/lib/Pod/ParseUtils.pm
+++ b/lib/Pod/ParseUtils.pm
@@ -289,9 +289,8 @@ sub parse {
     $self->{_warnings} = [];
 
     # collapse newlines with whitespace
-    if(s/\s*\n+\s*/ /g) {
-        $self->warning("collapsing newlines to blanks");
-    }
+    s/\s*\n+\s*/ /g;
+
     # strip leading/trailing whitespace
     if(s/^[\s\n]+//) {
         $self->warning("ignoring leading whitespace in link");