mirror of
https://github.com/drwetter/testssl.sh.git
synced 2025-12-09 08:44:01 +01:00
Add stdout flush
This commit is contained in:
@@ -23,6 +23,9 @@ my @args="";
|
||||
# that can be done better but I am a perl n00b ;-)
|
||||
my $os=`perl -e 'print "$^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;
|
||||
|
||||
|
||||
@@ -26,6 +26,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_smtp="--jsonfile tmp.json $check2run_smtp";
|
||||
|
||||
Reference in New Issue
Block a user