From d359e1108d804307c75060a3a7d54cf7ff0f382a Mon Sep 17 00:00:00 2001 From: Dirk Wetter Date: Mon, 24 Nov 2025 11:07:16 +0100 Subject: [PATCH] proper definition of os variable --- t/12_diff_opensslversions.t | 2 +- t/31_isJSON_valid.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/12_diff_opensslversions.t b/t/12_diff_opensslversions.t index eb4d668..0e40ed3 100755 --- a/t/12_diff_opensslversions.t +++ b/t/12_diff_opensslversions.t @@ -21,7 +21,7 @@ my $diff=""; my $distro_openssl="/usr/bin/openssl"; my @args=""; # that can be done better but I am a perl n00b ;-) -my $os=`perl -e 'print "$^O";'`; +my $os="$^O"; die "Unable to open $prg" unless -f $prg; die "Unable to open $distro_openssl" unless -f $distro_openssl; diff --git a/t/31_isJSON_valid.t b/t/31_isJSON_valid.t index 9becf16..08c1d02 100755 --- a/t/31_isJSON_valid.t +++ b/t/31_isJSON_valid.t @@ -18,7 +18,7 @@ my $cmd_timeout="--openssl-timeout=10"; my $socket_regex_bl='(e|E)rror|\.\/testssl\.sh: line |(f|F)atal|(c|C)ommand not found'; my $openssl_regex_bl='(e|E)rror|(f|F)atal|\.\/testssl\.sh: line |Oops|s_client connect problem|(c|C)ommand not found'; # that can be done better but I am a perl n00b ;-) -my $os=`perl -e 'print "$^O";'`; +my $os="$^O";' die "Unable to open $prg" unless -f $prg;