[freeside-commits] freeside/FS/FS svc_acct.pm,1.246,1.247

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv7885

Modified Files:
	svc_acct.pm 
Log Message:
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

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.246
retrieving revision 1.247
diff -u -d -r1.246 -r1.247
--- svc_acct.pm	6 Nov 2008 04:18:22 -0000	1.246
+++ svc_acct.pm	6 Nov 2008 04:22:59 -0000	1.247
@@ -1137,7 +1137,7 @@
            /^(!!?)?(\$\w+\$.*|[\w\+\/\.]{13}|_[\w\+\/\.]{19}|\*)$/
        ) {
 
-      $recref->{_password} = $1.$2;
+      $recref->{_password} = ( defined($1) ? $1 : '' ). $2;
 
     } else {
       return 'Illegal (crypt-encoded) password: '. $recref->{_password};