From: ivan <ivan>
Date: Fri, 13 Dec 2002 00:40:55 +0000 (+0000)
Subject: tyop
X-Git-Tag: BUSINESS_ONLINEPAYMENT_NETWORK1FINANCIAL_0_01~1
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Network1Financial.git;a=commitdiff_plain;h=1e54a52205adf3cf67fbc161467083b3ca3c4093

tyop
---

diff --git a/Network1Financial.pm b/Network1Financial.pm
index 5358ec8..feabece 100644
--- a/Network1Financial.pm
+++ b/Network1Financial.pm
@@ -123,9 +123,9 @@ sub submit {
       croak "$type not (yet) supported";
     }
 
-    $content{'expiration'} =~ s/(\d+)\/(\d+)$/;
+    $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
     my($m, $y) = ($1, $2);
-    $m = '0$m' if $m<10;
+    $m = "0$m" if $m<10;
     my $exp = "$m$y";
 
     $self->revmap_fields(