generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksrc: exit error code if warnings or errors

Browse Source
This commit is contained in:
Daniel Stenberg
2011-04-20 22:44:08 +02:00
parent 9869668884
commit 92f722017c
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/checksrc.pl
View File

@@ -5,11 +5,21 @@ my $file=$ARGV[0];
my $max_column = 79; my $max_column = 79;
my $indent = 2; my $indent = 2;
my $warnings;
my $errors;
sub checkwarn { sub checkwarn {
my ($num, $col, $file, $line, $msg, $error) = @_; my ($num, $col, $file, $line, $msg, $error) = @_;
my $w=$error?"error":"warning"; my $w=$error?"error":"warning";
if($w) {
$warnings++;
}
else {
$errors++;
}
$col++; $col++;
print "$file:$num:$col: $w: $msg\n"; print "$file:$num:$col: $w: $msg\n";
print " $line\n"; print " $line\n";
@@ -116,3 +126,7 @@ if(!$copyright) {
} }
close(R); close(R);
if($errors || $warnings) {
exit 5; # return failure
}