depend on B:OP v3

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

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
-$VERSION = '0.03';\r
+$VERSION = '0.04';\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
-      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