diff options
author | Rich Salz <rsalz@akamai.com> | 2016-01-28 14:17:19 -0500 |
---|---|---|
committer | Rich Salz <rsalz@openssl.org> | 2016-01-28 15:52:56 -0500 |
commit | cc373a37a193dbd00be20fc358b03403338ff873 (patch) | |
tree | d55df19f4bc11b5f873b2899b279163f4a79d83a /util/mkdef.pl | |
parent | 45bf87a0b985c79c4fe84722df7e3f50cde00dae (diff) | |
download | openssl-cc373a37a193dbd00be20fc358b03403338ff873.tar.gz |
Remove extraneous output from util/mk scripts
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util/mkdef.pl')
-rwxr-xr-x | util/mkdef.pl | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index 097d25283b..3151800007 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -1028,7 +1028,8 @@ sub reduce_platforms return $ret; } -sub info_string { +sub info_string +{ (my $symbol, my $exist, my $platforms, my $kind, my $algorithms) = @_; my %a = defined($algorithms) ? @@ -1046,13 +1047,13 @@ sub info_string { return $ret; } -sub maybe_add_info { +sub maybe_add_info +{ (my $name, *nums, my @symbols) = @_; my $sym; my $new_info = 0; my %syms=(); - print STDERR "Updating $name info\n"; foreach $sym (@symbols) { (my $s, my $i) = split /\\/, $sym; if (defined($nums{$s})) { @@ -1076,12 +1077,11 @@ sub maybe_add_info { } } if ($new_info) { - print STDERR "$new_info old symbols got an info update\n"; + print STDERR "$name: $new_info old symbols have updated info\n"; if (!$do_rewrite) { print STDERR "You should do a rewrite to fix this.\n"; } } else { - print STDERR "No old symbols needed info update\n"; } } @@ -1171,7 +1171,8 @@ sub print_test_file } } -sub get_version { +sub get_version +{ return $config{version}; } @@ -1431,8 +1432,6 @@ sub rewrite_numbers (*OUT,$name,*nums,@symbols)=@_; my $thing; - print STDERR "Rewriting $name\n"; - my @r = grep(/^\w+(\{[0-9]+\})?\\.*?:.*?:\w+\(\w+\)/,@symbols); my $r; my %r; my %rsyms; foreach $r (@r) { @@ -1481,8 +1480,6 @@ sub update_numbers ($basevers, $vers) = get_openssl_version(); - print STDERR "Updating $name numbers\n"; - my @r = grep(/^\w+(\{[0-9]+\})?\\.*?:.*?:\w+\(\w+\)/,@symbols); my $r; my %r; my %rsyms; foreach $r (@r) { @@ -1512,9 +1509,9 @@ sub update_numbers } } if($new_syms) { - print STDERR "$new_syms New symbols added\n"; + print STDERR "$name: Added $new_syms new symbols\n"; } else { - print STDERR "No New symbols Added\n"; + print STDERR "$name: No new symbols added\n"; } } |