diff options
| author | ivan <ivan> | 2009-10-05 23:36:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-10-05 23:36:08 +0000 |
| commit | 5a7134df962defd3d7771a77952be07d1610959a (patch) | |
| tree | 81ad8d0e129f6f470a65e0053916daf147bb9314 | |
| parent | 2caddb16574bf73c3687b959656b7ee2f851937f (diff) | |
remove annoying warning: Use of uninitialized value $FS::svc_acct::passwordmin in pattern match (m//) at /usr/local/share/perl/5.10.0/FS/svc_acct.pm line 60.
| -rw-r--r-- | FS/FS/svc_acct.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 9f54317c6..1b1265476 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -57,7 +57,10 @@ FS::UID->install_callback( sub { $usernamemin = $conf->config('usernamemin') || 2; $usernamemax = $conf->config('usernamemax'); $passwordmin = $conf->config('passwordmin'); # || 6; - $passwordmin = ( $passwordmin =~ /\d+/ ) ? $passwordmin : 6; #blank->6, keep 0 + #blank->6, keep 0 + $passwordmin = ( defined($passwordmin) && $passwordmin =~ /\d+/ ) + ? $passwordmin + : 6; $passwordmax = $conf->config('passwordmax') || 8; $username_letter = $conf->exists('username-letter'); $username_letterfirst = $conf->exists('username-letterfirst'); |