Index: /branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm
===================================================================
--- /branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm	(revision 23725)
+++ /branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm	(revision 23726)
@@ -67,5 +67,5 @@
 # EAM : In the 'distributed' version of Nebulous, there is a collection of N databases
 # the db_index uniquely defines the db used by a given key
-sub db_index_for_key
+sub _db_index_for_key
 {
     my ($self, $key) = @_;
@@ -87,5 +87,5 @@
 }
 
-sub db_for_index
+sub _db_for_index
 {
     my ($self, $db_index) = @_;
@@ -158,7 +158,7 @@
 
     die "key not defined" unless defined $key;
-    my $db_index = $self->db_index_for_key($key);
-
-    my $dbh = $self->db_for_index($db_index);
+    my $db_index = $self->_db_index_for_key($key);
+
+    my $dbh = $self->_db_for_index($db_index);
     return $dbh;
 }
@@ -385,10 +385,10 @@
     my $sql = $self->sql;
 
-    my $dbidx1 = $self->db_index_for_key($key1);
-    my $dbidx2 = $self->db_index_for_key($key2);
+    my $dbidx1 = $self->_db_index_for_key($key1);
+    my $dbidx2 = $self->_db_index_for_key($key2);
     die "cannot swap keys not stored on the same database" unless ($dbidx1 == $dbidx2);
 
-    my $dbh1 = $self->db_for_index($dbidx1);
-    my $dbh2 = $self->db_for_index($dbidx2);
+    my $dbh1 = $self->_db_for_index($dbidx1);
+    my $dbh2 = $self->_db_for_index($dbidx2);
     die "different db handles for the same db?" unless ($dbh1 == $dbh2);
 
@@ -1121,5 +1121,5 @@
     my $log = $self->log;
     my $sql = $self->sql;
-    my $db  = $self->db_for_index($index);
+    my $db  = $self->_db_for_index($index);
 
     my @keys;
@@ -1384,5 +1384,5 @@
     my $log = $self->log;
     my $sql = $self->sql;
-    my $db  = $self->db_for_index(0); # XXX fix as above
+    my $db  = $self->_db_for_index(0); # XXX fix as above
 
     $log->debug("entered - @_");