moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

checksrc: exit error code if warnings or errors

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
Show Stats 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 $indent = 2;
my $warnings;
my $errors;
sub checkwarn {
my ($num, $col, $file, $line, $msg, $error) = @_;
my $w=$error?"error":"warning";
if($w) {
$warnings++;
}
else {
$errors++;
}
$col++;
print "$file:$num:$col: $w: $msg\n";
print " $line\n";
@ -116,3 +126,7 @@ if(!$copyright) {
}
close(R);
if($errors || $warnings) {
exit 5; # return failure
}