X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SecureHostingUPG.pm;h=e0ca79698e1ab7d6f7f19c1a1055a9b5b557dd11;hb=760561f7bad6836c8ee54d5d60dbf370714af7a1;hp=2ab6d1ecc5aef9d89a4ff9b544fb7dcaad470088;hpb=e68e78321174f709f909f3bad181191dd3f3e8db;p=Business-OnlinePayment-SecureHostingUPG.git

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;