diff options
Diffstat (limited to 'LinkPoint.pm')
| -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/; |