aboutsummaryrefslogtreecommitdiff
path: root/lib/checksrc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/checksrc.pl')
-rwxr-xr-xlib/checksrc.pl7
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;