Changeset 27839 for branches/simmosaic_branches/Nebulous-Server/lib/Nebulous/Server/Config.pm

Timestamp:

May 3, 2010, 8:45:22 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/simmosaic_branches

Files:

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

branches/simmosaic_branches/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 },
 };