From ab1c1af3492abdb8e865a7c764f80d82ec17b338 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Wed, 4 Jan 2006 23:01:55 +0000
Subject: [PATCH] Fixed bug that broke expiration dates >2009.

---
 Skipjack.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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