81-test_cmp_cli.t: Correct subroutine quote_spc_empty and its use

Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/12280)
This commit is contained in:
Dr. David von Oheimb 2020-06-23 08:04:54 +02:00
parent 8913760960
commit 64bb6276d1

View File

@ -162,8 +162,8 @@ sub test_cmp_cli {
my $actual_exit = shift;
my $OK = $actual_exit == $expected_exit;
if ($faillog && !$OK) {
sub quote_spc_empty(_) { $_ eq "" ? '""' : $_ =~ m/ / ? '"'.$_.'"' : $_ };
my $invocation = ("$path_app ").join(' ', map quote_spc_empty @$params);
my $quote_spc_empty = sub { $_ eq "" ? '""' : $_ =~ m/ / ? '"'.$_.'"' : $_ };
my $invocation = "$path_app ".join(' ', map $quote_spc_empty->($_), @$params);
print $faillog "$server_name $aspect \"$title\" ($i/$n)".
" expected=$expected_exit actual=$actual_exit\n";
print $faillog "$invocation\n\n";