Changeset 25010

Timestamp:

Aug 6, 2009, 1:09:58 PM (17 years ago)

Author:

jhoblitt

Message:

allow dbpasswd to be undef

File:

• trunk/Nebulous-Server/lib/Nebulous/Server/Config.pm (modified) (3 diffs)

trunk/Nebulous-Server/lib/Nebulous/Server/Config.pm

@@ -13 +13 @@
 
 use Log::Log4perl qw( :levels );
-use Params::Validate qw( validate validate_pos SCALAR ARRAYREF );
+use Params::Validate qw( validate validate_pos SCALAR ARRAYREF UNDEF );
 
 our %LEVELS = (
@@ -32 +32 @@
     dsn         => { type => SCALAR },
     dbuser      => { type => SCALAR },
-    dbpasswd    => { type => SCALAR },
+    dbpasswd    => { type => SCALAR | UNDEF },
 };
 
@@ -48 +48 @@
     dsn                 => { type => SCALAR, optional => 1 },
     dbuser              => { type => SCALAR, optional => 1 },
-    dbpasswd            => { type => SCALAR, optional => 1 },
+    dbpasswd            => { type => SCALAR | UNDEF, optional => 1 },
     memcached_servers   => { type => ARRAYREF, optional => 1 },
 };