This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make trailing whitespace a newline at all times
authorSteffen Mueller <smueller@cpan.org>
Sat, 19 Feb 2011 13:01:25 +0000 (14:01 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:50 +0000 (20:54 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm

index 0c567eb..163353e 100644 (file)
@@ -90,6 +90,7 @@ sub cleaned_code {
   # Move C pre-processor instructions to column 1 to be strictly ANSI
   # conformant. Some pre-processors are fussy about this.
   $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
 
   return $code;
 }
index e60c7e6..d29cae4 100644 (file)
@@ -88,6 +88,7 @@ sub cleaned_code {
   # Move C pre-processor instructions to column 1 to be strictly ANSI
   # conformant. Some pre-processors are fussy about this.
   $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
 
   return $code;
 }