Allow MMYY expiration date

[Business-OnlinePayment-InternetSecure.git] / InternetSecure.pm

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a6240bc..964eb9e 100755 (executable)
--- 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";