cosmetic updates

parent d4bbd7e8
......@@ -37,7 +37,7 @@ my $url = URI->new($ARGV[0]);
$opt->{'handle'} ||= ($url->path_segments)[-1];
$opt->{'type'} ||= ('help' eq $opt->{'handle'} ? 'help' : ($url->path_segments)[-2]);
note(sprintf("testing %s, type '%s'", $ARGV[0], $opt->{'type'}));
note(sprintf("testing %s, type '%s'...", $ARGV[0], $opt->{'type'}));
my $rdap = Net::RDAP->new(
'use_cache' => ($opt->{'disable-cache'} ? undef : 1),
......@@ -107,7 +107,7 @@ sub check_gtld_conformance {
#
# use the command-line interface to the Qualys SSLLabs scanner, server must score at least A-
#
note('running TLS configuration check - this may take a while unless a cached result is available');
note('running TLS configuration check - this may take a while unless a cached result is available...');
my $pid = open3(undef, \*OUT, \*ERR, 'ssllabs-scan', '-quiet', '-grade', '-usecache', $host);
undef $/;
......@@ -120,6 +120,7 @@ sub check_gtld_conformance {
'Unable to perform TLS check',
[ split(/\n/, $err) ]
);
} else {
my $json = from_json('{'.$out.'}');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment