[freeside-commits] freeside/FS/FS svc_acct.pm,1.267,1.268

[Ivan,,,]

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

Modified Files:
	svc_acct.pm 
Log Message:
remove annoying warning: Use of uninitialized value $FS::svc_acct::passwordmin in pattern match (m//) at /usr/local/share/perl/5.10.0/FS/svc_acct.pm line 60.

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.267
retrieving revision 1.268
diff -u -d -r1.267 -r1.268
--- svc_acct.pm	25 Sep 2009 10:14:30 -0000	1.267
+++ svc_acct.pm	5 Oct 2009 23:36:08 -0000	1.268
@@ -57,7 +57,10 @@
   $usernamemin = $conf->config('usernamemin') || 2;
   $usernamemax = $conf->config('usernamemax');
   $passwordmin = $conf->config('passwordmin'); # || 6;
-  $passwordmin = ( $passwordmin =~ /\d+/ ) ? $passwordmin : 6; #blank->6, keep 0
+  #blank->6, keep 0
+  $passwordmin = ( defined($passwordmin) && $passwordmin =~ /\d+/ )
+                   ? $passwordmin
+                   : 6;
   $passwordmax = $conf->config('passwordmax') || 8;
   $username_letter = $conf->exists('username-letter');
   $username_letterfirst = $conf->exists('username-letterfirst');