From 92f722017c084f1e13fb238e5c3ebfec78c0b70a Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Wed, 20 Apr 2011 22:44:08 +0200 Subject: [PATCH] checksrc: exit error code if warnings or errors --- lib/checksrc.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lib/checksrc.pl b/lib/checksrc.pl index 2ec315bf4..c2b8d6583 100755 --- a/lib/checksrc.pl +++ b/lib/checksrc.pl @@ -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 +}