projects
/
Business-OnlinePayment-TransFirsteLink.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
get|post routines sometimes return 3 digit code and sometimes return entire response
[Business-OnlinePayment-TransFirsteLink.git]
/
TransFirsteLink.pm
diff --git
a/TransFirsteLink.pm
b/TransFirsteLink.pm
index
80cc4c2
..
6bcbfab
100644
(file)
--- a/
TransFirsteLink.pm
+++ b/
TransFirsteLink.pm
@@
-7,7
+7,7
@@
use Tie::IxHash;
use base qw(Business::OnlinePayment::HTTPS);
use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
2
';
+$VERSION = '0.0
3
';
$VERSION = eval $VERSION;
$DEBUG = 0;
$VERSION = eval $VERSION;
$DEBUG = 0;
@@
-547,7
+547,7
@@
sub submit {
croak "can't interpret response for unexpected type and action $type_action";
}
croak "can't interpret response for unexpected type and action $type_action";
}
- if ( $resp
eq "200"
&& ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
+ if ( $resp
=~ /^(HTTP\S+ )?200/
&& ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
$self->is_success(1);
}
else {
$self->is_success(1);
}
else {