Revision history for Perl extension Business::OnlinePayment::TransFirsteLink.
+0.03 Thu May 31 20:04:17 EDT 2007
+ - cope with discrepancy in second array element from B:OP:HTTPS
+ between Net::SSLeay and Crypt::SSLeay/LWP::UserAgent
+
0.02 Wed May 17 19:19:10 EDT 2007
- more tests
- make echeck conform to behavior rather than documentation
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Business-OnlinePayment-TransFirsteLink
-version: 0.02
+version: 0.03
version_from: TransFirsteLink.pm
installdirs: site
requires:
use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.02';
+$VERSION = '0.03';
$VERSION = eval $VERSION;
$DEBUG = 0;
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 {