ParseXS: process line continuations after POD

Within fetch_para(), the at-end-of-POD code and the main loop both had
separate (but similar) chunks of code to read in the next line, with the
latter one being more complete. In particular, the latter had logic to
process '\' continuation lines, while the POD one didn't. This meant
that this gave a parse error:

    =pod
    =cut
    void foo(int i, \
             int j)

The fix is to make them both use the same code to read the next line.

Author: iabyn

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

@@ -616,6 +616,8 @@ sub fetch_para {
 
   for (;;) {
 
+    my $final;
+
     # Skip an embedded POD section
 
     if ($self->{lastline} =~ /^=/) {
@@ -624,11 +626,7 @@ sub fetch_para {
       }
       $self->death("Error: Unterminated pod")
         unless defined $self->{lastline};
-      $self->{lastline} = readline($self->{in_fh});
-      return 0 unless defined $self->{lastline};
-      chomp $self->{lastline};
-      $self->{lastline} =~ s/^\s+$//;
-      next;
+      goto read_next_line;
     }
 
     # if present, extract out a TYPEMAP block as a paragraph
@@ -687,7 +685,6 @@ sub fetch_para {
 
     # A general line: process it
 
-    my $final;
 
     # Blank line followed by char in column 1. Start of next XSUB?
     last if    $self->{lastline} =~ /^\S/

dist/ExtUtils-ParseXS/t/001-basic.t

@@ -5821,6 +5821,17 @@ EOF
 
             [ 0, 0, qr{XS}, "no undef warning" ],
         ],
+        [
+            "line continuation directly after POD",
+            [ Q(<<'EOF') ],
+                |=pod
+                |=cut
+                |void foo(int i, \
+                |         int j)
+EOF
+
+            [ 0, 0, qr{XS}, "no errs" ],
+        ],
     );
 
     test_many($preamble, undef, \@test_fns);