[Bps-public-commit] r16712 - in Prophet/branches/init-and-clone: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Nov  6 11:48:29 2008
New Revision: 16712

Modified:
   Prophet/branches/init-and-clone/   (props changed)
   Prophet/branches/init-and-clone/lib/Prophet/App.pm

Log:
 r75121 at onn:  sartak | 2008-11-06 11:48:19 -0500
 Minor cleanup


Modified: Prophet/branches/init-and-clone/lib/Prophet/App.pm
==============================================================================
--- Prophet/branches/init-and-clone/lib/Prophet/App.pm	(original)
+++ Prophet/branches/init-and-clone/lib/Prophet/App.pm	Thu Nov  6 11:48:29 2008
@@ -154,8 +154,14 @@
     my $self = shift;
     my $settings = $self->database_settings;
     for my $name ( keys %$settings ) {
-        my @metadata = @{$settings->{$name}};
-        my $s = $self->setting(  label => $name, uuid => (shift @metadata), default => [@metadata]);
+        my ($uuid, @metadata) = @{$settings->{$name}};
+
+        my $s = $self->setting(
+            label   => $name,
+            uuid    => $uuid,
+            default => \@metadata,
+        );
+
         $s->initialize;
     }
 }