Allow MMYY expiration date
authorfbriere <fbriere>
Mon, 13 Feb 2006 21:35:29 +0000 (21:35 +0000)
committerfbriere <fbriere>
Mon, 13 Feb 2006 21:35:29 +0000 (21:35 +0000)
InternetSecure.pm

index a6240bc..964eb9e 100755 (executable)
@@ -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";