pricecharts

commit 5c1e4956b9124651f0956d4f44acf468c0441bc4
parent 53d2a012a4b8ed49e54e6dc3a7c6d0551809581f
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Thu, 12 Mar 2015 01:26:01 -0600

PriceChart: tighten header printing code

Diffstat:
M
PriceChart.pm
 | 
11
++++-------

1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/PriceChart.pm b/PriceChart.pm
@@ -98,13 +98,10 @@ sub new_ua
 	$ua->default_header("Accept-Language" => "en-US");
 	$ua->default_header("User-Agent" => $cfg->{"user_agent"});
 
-	if ($verbose) {
-		print "info: new_ua: http headers are:\n";
-		my $headers = $ua->default_headers;
-		for (sort keys %$headers) {
-			my $header = trunc_line($headers->{$_}, length($_) + 16);
-			print "              $_: $header\n";
-		}
+	my $headers = $ua->default_headers;
+	for (sort keys %$headers) {
+		my $header = trunc_line($headers->{$_}, length($_) + 18);
+		print "info: new_ua: $_ => $header\n" if ($verbose);
 	}
 
 	return $ua;