projects
/
Business-OnlinePayment-Skipjack.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug that broke expiration dates >2009.
[Business-OnlinePayment-Skipjack.git]
/
Skipjack.pm
diff --git
a/Skipjack.pm
b/Skipjack.pm
index
6719cbf
..
3484a3d
100644
(file)
--- a/
Skipjack.pm
+++ b/
Skipjack.pm
@@
-24,9
+24,9
@@
use strict;
use Business::OnlinePayment;
use Net::SSLeay qw(post_https make_form);
use Text::CSV;
use Business::OnlinePayment;
use Net::SSLeay qw(post_https make_form);
use Text::CSV;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK
$VERSION
);
-
#$VERSION="0
.1";
+
$VERSION="0.1
.1";
require Exporter;
require Exporter;
@@
-154,7
+154,7
@@
sub submit
# Or, if we want, from $c{login}.
# Or, if we want, from $c{login}.
- $c{expiration} =~ /(\d\d?)
.*(\d\d?)/; # extremely crude way to split the month and year
+ $c{expiration} =~ /(\d\d?)
\D*(\d\d?)/; # Slightly less crude way to extract the exp date.
$c{exp_month} = sprintf('%02d',$1);
$c{exp_year} = sprintf('%02d',$2);
$c{exp_month} = sprintf('%02d',$1);
$c{exp_year} = sprintf('%02d',$2);