Merge branch '3.3dev' into address_2952

Author: drwetter

.github/workflows/shellcheck.yml

@@ -6,6 +6,7 @@ name: Shellcheck
 on:
   pull_request:
     paths-ignore:
+      - 't/**'
       - 'utils/**'
       - 'doc/**'
       - 'bin/**'

t/10_baseline_ipv4_http.t

@@ -30,6 +30,8 @@ my $socket_errors='(e|E)rror|FIXME|\.\/testssl\.sh: line |(f|F)atal|(c|C)ommand
 my $openssl_errors='(e|E)rror|FIXME|(f|F)atal|\.\/testssl\.sh: line |Oops|s_client connect problem|(c|C)ommand not found';
 my $json_errors='(id".*:\s"scanProblem"|severity".*:\s"FATAL"|"Scan interrupted")';
 
+# useful against "failed to flush stdout" messages
+STDOUT->autoflush(1);
 
 die "Unable to open $prg" unless -f $prg;
 

t/12_diff_opensslversions.t

@@ -23,6 +23,9 @@ my @args="";
 # that can be done better but I am a perl n00b ;-)
 my $os="$^O";
 
+# useful against "failed to flush stdout" messages
+STDOUT->autoflush(1);
+
 die "Unable to open $prg" unless -f $prg;
 die "Unable to open $distro_openssl" unless -f $distro_openssl;
 

t/21_baseline_starttls.t

@@ -28,6 +28,9 @@ my $openssl_regex_bl='(e|E)rror|(f|F)atal|\.\/testssl\.sh: line |Oops|s_client c
 my $openssl_fallback_cmd="";       # empty for Linux
 my $os="$^O";
 
+# useful against "failed to flush stdout" messages
+STDOUT->autoflush(1);
+
 # my $socket_json="";
 # my $openssl_json="";
 # $check2run_smtp="--jsonfile tmp.json $check2run_smtp";

t/23_client_simulation.t

@@ -21,6 +21,9 @@ my $openssl_out="";
 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';
 
+# useful against "failed to flush stdout" messages
+STDOUT->autoflush(1);
+
 # my $socket_json="";
 # my $openssl_json="";
 # $check2run="--jsonfile tmp.json $check2run";