Ignore fake pod starting with "\r" also

Pod::Simple "splits" lines at \r, \n, or \r\n.
metacpan · Dec 14, 2014 · af93eb8 · af93eb8
1 parent fc7e25e
commit af93eb8
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Document/File.pm b/lib/MetaCPAN/Document/File.pm
@@ -349,13 +349,16 @@ sub _build_pod {
     # want in our pod text.
 
     $content =~ s/
-        ^=[a-zA-Z][a-zA-Z0-9]* # looks like pod
+        # Pod::Simple::parse_string_document() "supports \r, \n ,\r\n"...
+        (\A|\r|\r\n|\n)        # beginning of line
+
+        =[a-zA-Z][a-zA-Z0-9]*  # looks like pod
         (?!                    # but followed by something that isn't pod:
               [a-zA-Z0-9]      # more pod chars (the star won't be greedy enough)
             | \s               # whitespace ("=head1 NAME\n")
             | $                # end of line ("=item\n"
         )
-    //mgx;
+    //gx;
 
     my $text = "";
     $parser->output_string( \$text );

diff --git a/t/var/fakecpan/configs/binary-data.pl b/t/var/fakecpan/configs/binary-data.pl
@@ -32,7 +32,8 @@
 not pod
 \0
 
-=he\x50\x00\x7b
+=he\x50\x00\x7b;\x{0d}=Ddhé\x{01}UÕÌ
+
 EOF
     },
     {