honeymoose
/
OpenSearch
mirror of https://github.com/honeymoose/OpenSearch.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Change license-check script to work with perl 5.8

This commit is contained in:
Clinton Gormley 2015-08-04 21:31:17 +02:00
parent d8380c1a2a
commit 17922d25b8
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
dev-tools/src/main/resources/license-check/check_license_and_sha.pl
View File

@ -2,7 +2,6 @@
use strict;
use warnings;
use v5.10;
use FindBin qw($RealBin);
use lib "$RealBin/lib";
@ -49,15 +48,15 @@ sub check_shas_and_licenses {
for my $jar ( sort keys %new ) {
my $old_sha = delete $old{$jar};
unless ($old_sha) {
say STDERR "$jar: SHA is missing";
print STDERR "$jar: SHA is missing\n";
$error++;
$sha_error++;
next;
}
unless ( $old_sha eq $new{$jar} ) {
say STDERR
"$jar: SHA has changed, expected $old_sha but found $new{$jar}";
print STDERR
"$jar: SHA has changed, expected $old_sha but found $new{$jar}\n";
$error++;
$sha_error++;
next;
@ -85,37 +84,41 @@ sub check_shas_and_licenses {
}
}
unless ($license_found) {
say STDERR "$jar: LICENSE is missing";
print STDERR "$jar: LICENSE is missing\n";
$error++;
$sha_error++;
}
unless ($notice_found) {
say STDERR "$jar: NOTICE is missing";
print STDERR "$jar: NOTICE is missing\n";
$error++;
}
}
if ( keys %old ) {
say STDERR "Extra SHA files present for: " . join ", ", sort keys %old;
print STDERR "Extra SHA files present for: " . join ", ",
sort keys %old;
print "\n";
$error++;
}
my @unused_licenses = grep { !$licenses{$_} } keys %licenses;
if (@unused_licenses) {
$error++;
say STDERR "Extra LICENCE file present: " . join ", ",
print STDERR "Extra LICENCE file present: " . join ", ",
sort @unused_licenses;
print "\n";
}
my @unused_notices = grep { !$notices{$_} } keys %notices;
if (@unused_notices) {
$error++;
say STDERR "Extra NOTICE file present: " . join ", ",
print STDERR "Extra NOTICE file present: " . join ", ",
sort @unused_notices;
print "\n";
}
if ($sha_error) {
say STDERR <<"SHAS"
print STDERR <<"SHAS"
You can update the SHA files by running:
@ -123,7 +126,7 @@ $0 --update $License_Dir $Source
SHAS
}
say "All SHAs and licenses OK" unless $error;
print("All SHAs and licenses OK\n") unless $error;
return $error;
}
@ -136,13 +139,13 @@ sub write_shas {
for my $jar ( sort keys %new ) {
if ( $old{$jar} ) {
next if $old{$jar} eq $new{$jar};
say "Updating $jar";
print "Updating $jar\n";
}
else {
say "Adding $jar";
print "Adding $jar\n";
}
open my $fh, '>', $License_Dir . $jar or die $!;
say $fh $new{$jar} or die $!;
print $fh $new{$jar} . "\n" or die $!;
close $fh or die $!;
}
continue {
@ -150,10 +153,10 @@ sub write_shas {
}
for my $jar ( sort keys %old ) {
say "Deleting $jar";
print "Deleting $jar\n";
unlink $License_Dir . $jar or die $!;
}
say "SHAs updated";
print "SHAs updated\n";
return 0;
}