From a75dbc7f6fe0bba5a0af7069488891e4685af7c5 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 25 Dec 2002 08:01:21 +0000
Subject: [PATCH] fixed silly bug with expiration dates

---
 Changes              | 3 +++
 Network1Financial.pm | 3 ++-
 t/credit_card.t      | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 1cd9cf3..ac0498d 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::Network1Financial.
 
+0.02  Tue Dec 24 23:59:55 PST 2002
+	-silly bug with expiration dates.  doh
+
 0.01  Tue Dec 17 11:18:38 PST 2002
 	-original version; created by ivan 1.0
 
diff --git a/Network1Financial.pm b/Network1Financial.pm
index feabece..cd2b77c 100644
--- 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";
 
diff --git a/t/credit_card.t b/t/credit_card.t
index 2d87d4a..ec8f7f8 100644
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -20,7 +20,7 @@ $tx->content(
     state          => 'UT',
     zip            => '84058',
     card_number    => '4111111111111111',
-    expiration     => '1/05',
+    expiration     => '04/05',
 );
 $tx->test_transaction(1); # test, dont really charge
 $tx->submit();
-- 
2.11.0