luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scripts/copyright.pl: ignore missing files

Browse Source
This commit is contained in:
Daniel Stenberg 2022-01-09 22:28:04 +01:00
parent d8218d45e4
commit dbde76bdd6
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/copyright.pl
View File

@ -88,8 +88,7 @@ sub scanfile {
my ($f) = @_; my ($f) = @_;
my $line=1; my $line=1;
my $found = 0; my $found = 0;
open(F, "<$f") || open(F, "<$f") || return -1;
print ERROR "can't open $f\n";
while (<F>) { while (<F>) {
chomp; chomp;
my $l = $_; my $l = $_;
@ -120,9 +119,14 @@ sub checkfile {
@copyright=(); @copyright=();
my $found = scanfile($file); my $found = scanfile($file);
if(!$found) { if($found < 1) {
print "$file:1: missing copyright range\n"; if(!$found) {
return 2; print "$file:1: missing copyright range\n";
return 2;
}
# this means the file couldn't open - it might not exist, consider
# that fine
return 0;
} }
my $commityear = undef; my $commityear = undef;