Fixed bug that broke expiration dates >2009.

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