diff options
| author | ivan <ivan> | 2004-06-24 15:23:40 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-06-24 15:23:40 +0000 |
| commit | 4750d9a7c1f4e1ee9865f198219c9e8879c1d5db (patch) | |
| tree | 7bbe93fe75a79ebd00799d29d660e0f8e6aae7b3 | |
| parent | 500b328643c4fe70da165c441b97cfc0ec373897 (diff) | |
send expiration year in new format
| -rw-r--r-- | LinkPoint.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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/; |