From ec28c4e3c2a08f0057020b81907174e84a654d25 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 19 Nov 2002 10:02:19 +0000
Subject: [PATCH] silly regex bug parsing echeck info
---
FS/FS/cust_main.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 4a5cff2fc..a8b1dc291 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -687,7 +687,7 @@ sub check {
} elsif ( $self->payby eq 'CHEK' ) {
my $payinfo = $self->payinfo;
- $payinfo =~ s/[\D\@]//g;
+ $payinfo =~ s/[^\d\@]//g;
$payinfo =~ /^(\d+)\@(\d{9})$/ or return 'invalid echeck account@aba';
$payinfo = "$1\@$2";
$self->payinfo($payinfo);
--
2.20.1