From: Ivan Kohler Date: Tue, 13 Sep 2016 21:05:20 +0000 (-0700) Subject: these kinds of error messages don't need to tell us what line number they're from... X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-BatchPayment-BillBuddy.git;a=commitdiff_plain;h=4c88e382c90c09b065ef680f34fc8f8e56748685 these kinds of error messages don't need to tell us what line number they're from, RT#72219 --- diff --git a/BillBuddy.pm b/BillBuddy.pm index de2131c..72b5afe 100644 --- a/BillBuddy.pm +++ b/BillBuddy.pm @@ -259,10 +259,11 @@ sub xmlrpc_post { my $xmlcontent = $self->xml_format($sid,@param); warn $self->host . ' ' . $self->port . ' ' . $path . "\n" . $xmlcontent if $self->debug; my ($response, $rcode, %rheaders) = $self->https_post($path,$xmlcontent); - die "Bad response from gateway: $rcode" unless $rcode eq '200 OK'; + die "Bad response from gateway: $rcode\n" unless $rcode eq '200 OK'; warn $response . "\n" if $self->debug; my $rref = XMLin($response, KeyAttr => ['ResponseData'], ForceArray => []); - die "Error from gateway: " . $rref->{'ResponseStatusDescription'} if $rref->{'ResponseStatus'}; + die "Error from gateway: " . $rref->{'ResponseStatusDescription'}. "\n" + if $rref->{'ResponseStatus'}; return $rref; }