X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/186329e00d0e254120e6755aed2cc4f798097756..54a9f7b68b89d589ef2d398bb2036153eeb72ae4:/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
index 6e1d36d..b6d07bc 100644
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
@@ -660,6 +660,11 @@ sub _get_inputmap_hash {
   my %rv;
   foreach my $xstype (keys %$lookup) {
     $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code;
+
+    # Squash trailing whitespace to one line break max
+    # This isn't strictly necessary, but makes the output more similar
+    # to the original ExtUtils::ParseXS.
+    $rv{$xstype} =~ s/\s+?\n\z/\n/;
   }
 
   return \%rv;