diff options
Diffstat (limited to 'lib/checksrc.pl')
-rwxr-xr-x | lib/checksrc.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/checksrc.pl b/lib/checksrc.pl index 4e04f3cf8..292ad3424 100755 --- a/lib/checksrc.pl +++ b/lib/checksrc.pl @@ -30,14 +30,15 @@ my $supressed; # whitelisted problems my $file; my $dir="."; my $wlist; +my $windows_os = $^O eq 'MSWin32' || $^O eq 'msys' || $^O eq 'cygwin'; my %whitelist; sub readwhitelist { open(W, "<$dir/checksrc.whitelist"); my @all=<W>; - for(@all) { - chomp; + for(@all) { + $windows_os ? $_ =~ s/\r?\n$// : chomp; $whitelist{$_}=1; } close(W); @@ -120,7 +121,7 @@ sub scanfile { my $copyright=0; while(<R>) { - chomp; + $windows_os ? $_ =~ s/\r?\n$// : chomp; my $l = $_; my $column = 0; |