diff options
author | Dr. David von Oheimb <David.von.Oheimb@siemens.com> | 2020-06-23 08:04:54 +0200 |
---|---|---|
committer | Dr. David von Oheimb <David.von.Oheimb@siemens.com> | 2020-07-03 13:39:20 +0200 |
commit | 64bb6276d17cc78c15e0bbea2cce899ba9b6778d (patch) | |
tree | 93a80876bb31a4adcf3ed038b627be8e3b0022bc /test/recipes | |
parent | 89137609606a1195091c1edb4741c67c06f878a5 (diff) |
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)
Diffstat (limited to 'test/recipes')
-rw-r--r-- | test/recipes/81-test_cmp_cli.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/recipes/81-test_cmp_cli.t b/test/recipes/81-test_cmp_cli.t index 08bc0c956d..385c259729 100644 --- a/test/recipes/81-test_cmp_cli.t +++ b/test/recipes/81-test_cmp_cli.t @@ -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"; |