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

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};