ParseXS: refactor: fetch_para(): remove POD loop

Remove the loop which says 'foreach contiguous section of pod, delete
it'. Replace it with with something which removes just *one* section of
POD, then relies on the main loop to process the next line, which may
well be the start of another POD section.

Fewer nested loops is less cognitive load.

Should be no functional changes.

Author: iabyn

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

@@ -616,10 +616,9 @@ sub fetch_para {
 
   for (;;) {
 
-    # Skip any embedded POD sections, reading in lines from {in_fh} as
-    # necessary.
+    # Skip an embedded POD section
 
-    while ($self->{lastline} =~ /^=/) {
+    if ($self->{lastline} =~ /^=/) {
       while ($self->{lastline} = readline($self->{in_fh})) {
         last if ($self->{lastline} =~ /^=cut\s*$/);
       }
@@ -629,6 +628,7 @@ sub fetch_para {
       return 0 unless defined $self->{lastline};
       chomp $self->{lastline};
       $self->{lastline} =~ s/^\s+$//;
+      next;
     }
 
     # if present, extract out a TYPEMAP block as a paragraph