From 17dfcf3f0af038d47b902ad768e137a42a7a141e Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 17 Sep 2007 21:12:58 +0000 Subject: [PATCH] fix scoping issues with $1 and $2 resulting in payinfo trying getting set to xxEK, thanks to _vlad_ for tracking this down and providing a fix --- FS/FS/cust_main.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index bb3dcdb37..6512888ca 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1439,10 +1439,11 @@ sub check { $payinfo =~ s/[^\d\@]//g; if ( $conf->exists('echeck-nonus') ) { $payinfo =~ /^(\d+)\@(\d+)$/ or return 'invalid echeck account@aba'; + $payinfo = "$1\@$2"; } else { $payinfo =~ /^(\d+)\@(\d{9})$/ or return 'invalid echeck account@aba'; + $payinfo = "$1\@$2"; } - $payinfo = "$1\@$2"; $self->payinfo($payinfo); $self->paycvv(''); -- 2.20.1