diff options
| author | ivan <ivan> | 2000-03-06 16:38:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-03-06 16:38:42 +0000 |
| commit | e3aaca5c08b8b39627978eb30d10dfb241946b93 (patch) | |
| tree | 69d2eb32a202653a9cc3a45bd19ccdd2e5f96fce | |
| parent | 4ac60147a2fe3734530149c1f72788e1d555abbd (diff) | |
better error message. bah.
| -rw-r--r-- | FS/FS/svc_acct.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 079508b84..fcd8030df 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -348,7 +348,7 @@ sub check { $recref->{username} = $1; $recref->{username} =~ /[a-z]/ or return "Illegal username"; - $recref->{popnum} =~ /^(\d*)$/ or return "Illegal popnum"; + $recref->{popnum} =~ /^(\d*)$/ or return "Illegal popnum: ".$recref->{popnum}; $recref->{popnum} = $1; return "Unkonwn popnum" unless ! $recref->{popnum} || @@ -450,7 +450,7 @@ sub check { =head1 VERSION -$Id: svc_acct.pm,v 1.2 1999-08-12 00:05:03 ivan Exp $ +$Id: svc_acct.pm,v 1.3 2000-03-06 16:38:42 ivan Exp $ =head1 BUGS |