projects
/
Business-OnlinePayment-Skipjack.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
237c409
)
Fixed bug that broke expiration dates >2009.
author
khoff
<khoff>
Wed, 4 Jan 2006 23:01:55 +0000
(23:01 +0000)
committer
khoff
<khoff>
Wed, 4 Jan 2006 23:01:55 +0000
(23:01 +0000)
Skipjack.pm
patch
|
blob
|
history
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);