X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=blobdiff_plain;f=Skipjack.pm;h=3484a3dab6bd41dd26099f8d2b5de41ac0e1cbf3;hp=6719cbfc7cf0f1afd1de8da973bcae0cdc7e90ea;hb=ab1c1af3492abdb8e865a7c764f80d82ec17b338;hpb=237c409621598baa378402a74a389049790c0d41

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);