avoid harmless "Use of uninitialized value in concatenation (.) or string at /usr...

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index d606919..a4876c5 100644 (file)
--- 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};