From 9bdf39e45ac99d0bacdabe4851f0fe2d6fbb4e9b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 6 Nov 2008 04:22:59 +0000
Subject: [PATCH] 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

---
 FS/FS/svc_acct.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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