From: fbriere Date: Mon, 13 Feb 2006 21:35:29 +0000 (+0000) Subject: Allow MMYY expiration date X-Git-Tag: V0_01~57 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-InternetSecure.git;a=commitdiff_plain;h=4b7a5ee304316798c4ad690dbadbcf5f0fe125fa Allow MMYY expiration date --- diff --git a/InternetSecure.pm b/InternetSecure.pm index a6240bc..964eb9e 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -85,7 +85,7 @@ sub parse_expdate { ($y, $m) = ($1, $2); } elsif (/^(\d{1,2})\W(\d{4})$/ || # 07-2004 or 7/2004 /^(\d)\W(\d\d)$/ || # 7/04 - /^(\d\d)\/(\d\d)$/) { # 07/04 + /^(\d\d)\/?(\d\d)$/) { # 07/04 or 0704 ($y, $m) = ($2, $1); } else { croak "Unable to parse expiration date: $str";