From: khoff <khoff>
Date: Wed, 4 Jan 2006 23:01:55 +0000 (+0000)
Subject: Fixed bug that broke expiration dates >2009.
X-Git-Tag: Business-OnlinePayment-Skipjack_0_02~5
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=commitdiff_plain;h=ab1c1af3492abdb8e865a7c764f80d82ec17b338

Fixed bug that broke expiration dates >2009.
---

diff --git a/Skipjack.pm b/Skipjack.pm
index 6719cbf..3484a3d 100644
--- 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 vars qw(@ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-#$VERSION="0.1";
+$VERSION="0.1.1";
 
 require Exporter;
 
@@ -154,7 +154,7 @@ sub submit
 
   # 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);