From 760561f7bad6836c8ee54d5d60dbf370714af7a1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 9 Jul 2008 19:08:02 +0000
Subject: [PATCH] depend on B:OP v3

---
 Changes             | 4 ++++
 Makefile.PL         | 2 +-
 SecureHostingUPG.pm | 4 ++--
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index c8c5e61..1d6caf7 100644
--- a/Changes
+++ b/Changes
@@ -1,2 +1,6 @@
+0.04  unreleased
+	- haha oops, 0.01 tarball had 0.3 $VERSION
+        - depend on B:OP v3
+
 0.01  Mon Dec 27 03:00:58 2004
 	- original version; created by ivan 1.0
diff --git a/Makefile.PL b/Makefile.PL
index f62e54c..4045d22 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,7 +7,7 @@ WriteMakefile(
     'AUTHOR'       => 'Ivan Kohler <ivan-securehostingupg@420.am>',
     #'NORECURS'     => 1, # dont descend into subdirectories
     'PREREQ_PM'    => {
-                        'Business::OnlinePayment' => 0,
+                        'Business::OnlinePayment' => 3,
 
                         # for HTTPS (maybe it should be a separate dist?)
                         'URI::Escape' => 0,
diff --git a/SecureHostingUPG.pm b/SecureHostingUPG.pm
index 2ab6d1e..e0ca796 100644
--- a/SecureHostingUPG.pm
+++ b/SecureHostingUPG.pm
@@ -7,7 +7,7 @@ use Business::OnlinePayment::HTTPS;
 use vars qw($VERSION $DEBUG @ISA);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.03';
+$VERSION = '0.04';
 $DEBUG = 0;
 
 sub set_defaults {
@@ -78,7 +78,7 @@ sub submit {
 
     #cardstartmonth & cardstartyear
     $self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/
-      or croak "unparsable card_start ". $self->{_content}{expiration};
+      or croak "unparsable card_start ". $self->{_content}{card_start};
     my( $smonth, $syear ) = ( $1, $2 );
     $smonth = '0'. $smonth if $smonth =~ /^\d$/;
     $self->{_content}{cardstartmonth} = $smonth;
-- 
2.11.0