diff options
author | ivan <ivan> | 2002-11-19 10:02:19 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-11-19 10:02:19 +0000 |
commit | ec28c4e3c2a08f0057020b81907174e84a654d25 (patch) | |
tree | ebc099ba1bb6e22762149f73df88ca35cb312238 /FS | |
parent | 789c34c5251f4b831a7cb27bd2a9af700ccf2ced (diff) |
silly regex bug parsing echeck info
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_main.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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); |