diff options
| author | ivan <ivan> | 2002-11-19 10:02:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-11-19 10:02:22 +0000 |
| commit | 1931a1946ab87d7f4638fbe343ed669de64406f4 (patch) | |
| tree | bad09f976a6ee06e6a32bffe77a6eacc533465e3 | |
| parent | ded6b8bd1614427b30a49f8bf336392960ddf415 (diff) | |
silly regex bug parsing echeck info
| -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 e528ee322..10f4f9291 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -685,7 +685,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); |