ParseXS: refactor: move a chomp()

(This commit is part of a series which will extend the AST parse tree
from just representing individual XSUBs to representing the whole XS
file.)

Change where $pxs->{lastline} gets chomped at the start of the XS half
of the file, where the fetch_para() loop is first entered - do it just
the once when transitioning rather than polluting the main fetch_para()
loop with it.

No functional changes.

Author: iabyn

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

@@ -604,7 +604,6 @@ sub fetch_para {
   my ExtUtils::ParseXS $self = shift;
 
   return 0 if not defined $self->{lastline}; # EOF
-  chomp $self->{lastline}; # may not already have been for first MODULE line
 
   @{ $self->{line} } = ();
   @{ $self->{line_no} } = ();

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

@@ -662,8 +662,14 @@ sub parse {
     $pxs->{lastline_no} = $.;
 
     while (defined $pxs->{lastline}) {
-        return 1 if ExtUtils::ParseXS::Utilities::looks_like_MODULE_line(
-                                                            $pxs->{lastline});
+        if (ExtUtils::ParseXS::Utilities::looks_like_MODULE_line(
+                                                    $pxs->{lastline}))
+        {
+            # the fetch_para() regime in place in the XS part of the file
+            # expects this to have been chomped
+            chomp $pxs->{lastline};
+            return 1;
+        }
 
         my $node = 
             $pxs->{lastline} =~ /^=/