From: ivan <ivan>
Date: Thu, 6 Nov 2008 04:22:59 +0000 (+0000)
Subject: avoid harmless "Use of uninitialized value in concatenation (.) or string at /usr... 
X-Git-Tag: root_of_webpay_support~265
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=9bdf39e45ac99d0bacdabe4851f0fe2d6fbb4e9b;p=freeside.git

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

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