Colorize HTML report even if stdout is a non-tty. Now it acts like the docs say it does.

1 files changed, 2 insertions, 1 deletions

diff --git a/greypool b/greypool
index 7dd8b04..8a2b458 100755
--- a/greypool
+++ b/greypool
@@ -80,13 +80,14 @@ sub parse_opts {
 		"doc|help" => sub { exec("perldoc $0"); },
 		"man" => sub { exec("pod2man --stderr -s1 -cgreypool -r$VERSION $0"); },
 		"color|colour|c" => \$color_output,
-		"mono|no-color|no-colour|m" => sub { $color_output = 0; },
+		"mono|no-color|no-colour|m" => sub { $color_output = 0; $mono = 1; },
 		"config-dir|C=s" => \$privdir,
 		"quiet|q" => sub { $verbose = 0; },
 	) or fatal("error in command line options (try --help).");
 
 	$html = 1 if $html_frag;
 	$html = 0 if $csv_output;
+	$color_output = 1 if $html && !$mono;
 
 	fatal "can't use -f/--force and -n/--cached together"
 		if $force_download && $no_download;