diff options
| author | ivan <ivan> | 2000-06-28 12:52:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-06-28 12:52:22 +0000 |
| commit | be4e54da250b7b94ddfd67c9f8eeb02288e10020 (patch) | |
| tree | f6a0bee3db69c5d37f900b1ae851e49d6c59d893 | |
| parent | cb61ec822bf114015e4044868c5c7f3c3000ab0d (diff) | |
bugfix to accept shells that evaluate to false in perl, like the empty string.
| -rw-r--r-- | FS/FS/svc_acct.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 339081a37..14979ed09 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -381,8 +381,8 @@ sub check { unless ( $recref->{username} eq 'sync' ) { my($shell); - if ( $shell = (grep $_ eq $recref->{shell}, @shells)[0] ) { - $recref->{shell} = $shell; + if ( grep $_ eq $recref->{shell}, @shells ) { + $recref->{shell} = (grep $_ eq $recref->{shell}, @shells)[0]; } else { return "Illegal shell \`". $self->shell. "\'; ". $conf->dir. "/shells contains: @shells"; @@ -473,7 +473,7 @@ sub radius { =head1 VERSION -$Id: svc_acct.pm,v 1.4 2000-06-15 13:35:47 ivan Exp $ +$Id: svc_acct.pm,v 1.5 2000-06-28 12:52:22 ivan Exp $ =head1 BUGS |