diff options
| author | ivan <ivan> | 2008-11-06 04:22:59 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-11-06 04:22:59 +0000 |
| commit | 9bdf39e45ac99d0bacdabe4851f0fe2d6fbb4e9b (patch) | |
| tree | 560ad290c2d1d9158d2d7fda5391bce9377e3bb6 /FS | |
| parent | ca28df64e6ca903804a9de96f686c5b3daa1c1ee (diff) | |
avoid harmless "Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.8.8/FS/svc_acct.pm line 1140" error
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/svc_acct.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index d606919dd..a4876c5a5 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1137,7 +1137,7 @@ sub check { /^(!!?)?(\$\w+\$.*|[\w\+\/\.]{13}|_[\w\+\/\.]{19}|\*)$/ ) { - $recref->{_password} = $1.$2; + $recref->{_password} = ( defined($1) ? $1 : '' ). $2; } else { return 'Illegal (crypt-encoded) password: '. $recref->{_password}; |