}
return $payment_info if ( $payment_info->{'error'} );
- my $customer_info = customer_info(
- mask_ss => 1,
- mask_stateid => 1,
- session_id => $session_id,
- );
+ my $customer_info =
+ customer_info( 'session_id' => $session_id );
return {
%$payment_info,
%$customer_info,
$cgi->param('paycvv') =~ /^\s*(.{0,4})\s*$/ or die "illegal CVV2";
my $paycvv = $1;
- $cgi->param('month') =~ /^(\d{2})$/ or die "illegal month";
+ $cgi->param('month') =~ /^(\d{2})/ or die "illegal month";
my $month = $1;
- $cgi->param('year') =~ /^(\d{4})$/ or die "illegal year";
+ $cgi->param('year') =~ /^(\d{4})/ or die "illegal year";
my $year = $1;
$cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";