depend on B:OP v3

diff --git a/Changes b/Changes
index c8c5e61..1d6caf7 100644 (file)
--- 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
 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 (file)
--- 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'    => {
     '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,
 
                         # for HTTPS (maybe it should be a separate dist?)
                         'URI::Escape' => 0,

diff --git a/SecureHostingUPG.pm b/SecureHostingUPG.pm
index 2ab6d1e..e0ca796 100644 (file)
--- a/SecureHostingUPG.pm
+++ b/SecureHostingUPG.pm
@@ -7,7 +7,7 @@ use Business::OnlinePayment::HTTPS;
 use vars qw($VERSION $DEBUG @ISA);\r
 \r
 @ISA = qw(Business::OnlinePayment::HTTPS);\r
 use vars qw($VERSION $DEBUG @ISA);\r
 \r
 @ISA = qw(Business::OnlinePayment::HTTPS);\r

-$VERSION = '0.03';\r
+$VERSION = '0.04';\r

 $DEBUG = 0;\r
 \r
 sub set_defaults {\r
 $DEBUG = 0;\r
 \r
 sub set_defaults {\r


@@ -78,7 +78,7 @@ sub submit {
 \r
     #cardstartmonth & cardstartyear\r
     $self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/\r
 \r
     #cardstartmonth & cardstartyear\r
     $self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/\r

-      or croak "unparsable card_start ". $self->{_content}{expiration};\r
+      or croak "unparsable card_start ". $self->{_content}{card_start};\r

     my( $smonth, $syear ) = ( $1, $2 );\r
     $smonth = '0'. $smonth if $smonth =~ /^\d$/;\r
     $self->{_content}{cardstartmonth} = $smonth;\r
     my( $smonth, $syear ) = ( $1, $2 );\r
     $smonth = '0'. $smonth if $smonth =~ /^\d$/;\r
     $self->{_content}{cardstartmonth} = $smonth;\r