From 3a63e53c109a26f27a098028cf65882318d44099 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sun, 27 Aug 2017 11:31:13 -0700 Subject: [PATCH] SureTax: additional debugging, RT#76987 --- FS/FS/TaxEngine/suretax.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/FS/FS/TaxEngine/suretax.pm b/FS/FS/TaxEngine/suretax.pm index fe8764bf1..356f5f318 100644 --- a/FS/FS/TaxEngine/suretax.pm +++ b/FS/FS/TaxEngine/suretax.pm @@ -347,7 +347,10 @@ sub make_taxlines { 'Accept' => 'application/json', ); - warn "received SureTax response\n" if $DEBUG; + warn 'received SureTax response: '. $http_response->status_line. "\n" + if $DEBUG; + die $http_response->status_line. "\n" unless $http_response->is_success; + my $raw_response = $http_response->content; warn $raw_response if $DEBUG > 2; my $response; @@ -360,7 +363,7 @@ sub make_taxlines { warn "decoding SureTax response\n" if $DEBUG; $response = eval { $json->decode($raw_response) } - or die "$raw_response\n"; + or die "Can't JSON-decode response: $raw_response\n"; # documentation implies this might be necessary $response = $response->{'d'} if exists $response->{'d'}; -- 2.11.0