Cleanup database migrate fragment

root/etc/e-smith/db/configuration/migrate/phplist-database

@@ -2,32 +2,26 @@
     my $rec = $DB->get('phplist')
         || $DB->new_record('phplist', {type => 'webapp'});
     my $pw = $rec->prop('DbPassword');
-    if (not $pw or length($pw) < 57)
+    if (not $pw or length($pw) < 57){
-    {   
         use MIME::Base64 qw(encode_base64);
 
         $pw = "not set due to error";
-        if ( open( RANDOM, "/dev/urandom" ) )
+        if ( open( RANDOM, "/dev/urandom" ) ){
-        {   
             my $buf;
             # 57 bytes is a full line of Base64 coding, and contains
             # 456 bits of randomness - given a perfectly random /dev/random
-            if ( read( RANDOM, $buf, 57 ) != 57 )
+            if ( read( RANDOM, $buf, 57 ) != 57 ){
-            {   
                 warn("Short read from /dev/random: $!");
             }
-            else
+            else{
-            {   
                 $pw = encode_base64($buf);
                 chomp $pw;
             }
             close RANDOM;
         }
-        else
+        else{
-        {   
             warn "Could not open /dev/urandom: $!";
         }
         $rec->set_prop('DbPassword', $pw);
     }
 }
-