Changeset 23726

Timestamp:

Apr 7, 2009, 1:50:26 PM (17 years ago)

Author:

jhoblitt

Message:

mark _db_index_for_key() & _db_for_index() as private

File:

• branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm (modified) (6 diffs)

branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm

@@ -67 +67 @@
 # 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 +87 @@
 }
 
-sub db_for_index
+sub _db_for_index
 {
     my ($self, $db_index) = @_;
@@ -158 +158 @@
 
     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 +385 @@
     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 +1121 @@
     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 +1384 @@
     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 - @_");