From 4b7a5ee304316798c4ad690dbadbcf5f0fe125fa Mon Sep 17 00:00:00 2001 From: fbriere Date: Mon, 13 Feb 2006 21:35:29 +0000 Subject: [PATCH] Allow MMYY expiration date --- InternetSecure.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; -- 2.11.0