fixed silly bug with expiration dates

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

diff --git a/Network1Financial.pm b/Network1Financial.pm
index feabece..cd2b77c 100644 (file)
--- a/Network1Financial.pm
+++ b/Network1Financial.pm
@@ -13,7 +13,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 $DEBUG = 0;
 
@@ -125,6 +125,7 @@ sub submit {
 
     $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
     my($m, $y) = ($1, $2);
+    $m = $m+0;
     $m = "0$m" if $m<10;
     my $exp = "$m$y";