From: ivan Date: Thu, 24 Jun 2004 15:23:40 +0000 (+0000) Subject: send expiration year in new format X-Git-Tag: BUSINESS_ONLINEPAYMENT_LINKPOINT_0_04~3 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-LinkPoint.git;a=commitdiff_plain;h=4750d9a7c1f4e1ee9865f198219c9e8879c1d5db send expiration year in new format --- diff --git a/LinkPoint.pm b/LinkPoint.pm index 4299e5f..ed8a650 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.19 2004-06-24 15:19:32 ivan Exp $ +# $Id: LinkPoint.pm,v 1.20 2004-06-24 15:23:40 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -112,7 +112,6 @@ sub submit { ( $month, $year ) = ( $1, $2 ); $month = '0'. $month if $month =~ /^\d$/; - $year += 2000 if $year < 2000; #not y4k safe, oh shit } $content{'address'} =~ /^(\S+)\s/;