From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Fri, 24 Feb 2006 05:25:17 +0000 (+0000)
Subject: Cleaned up a little
X-Git-Tag: 0-97~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09b5cb31ac61aec6a14baf5d0f8603f8770a7221;p=dbsrgits%2FDBM-Deep.git

Cleaned up a little
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index a87c920..25f4c00 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -200,7 +200,7 @@ sub TIEARRAY {
 sub _open {
 	##
 	# Open a fh to the database, create if nonexistent.
-	# Make sure file signature matches DeepDB spec.
+	# Make sure file signature matches DBM::Deep spec.
 	##
     my $self = $_[0]->_get_self;
 
@@ -582,7 +582,7 @@ sub _add_bucket {
 		}
 		
 		##
-		# If content is a hash or array, create new child DeepDB object and
+		# If content is a hash or array, create new child DBM::Deep object and
 		# pass each key or element to it.
 		##
 		if ($r eq 'HASH') {
@@ -592,7 +592,6 @@ sub _add_bucket {
 				root => $self->root,
 			);
 			foreach my $key (keys %{$value}) {
-                #$branch->{$key} = $value->{$key};
                 $branch->STORE( $key, $value->{$key} );
 			}
 		}
@@ -604,7 +603,6 @@ sub _add_bucket {
 			);
 			my $index = 0;
 			foreach my $element (@{$value}) {
-                #$branch->[$index] = $element;
                 $branch->STORE( $index, $element );
 				$index++;
 			}
@@ -625,7 +623,7 @@ sub _get_bucket_value {
 	my $keys = $tag->{content};
 
     my $fh = $self->fh;
-	
+
 	##
 	# Iterate through buckets, looking for a key match
 	##
@@ -653,7 +651,7 @@ sub _get_bucket_value {
         read( $fh, $signature, SIG_SIZE);
         
         ##
-        # If value is a hash or array, return new DeepDB object with correct offset
+        # If value is a hash or array, return new DBM::Deep object with correct offset
         ##
         if (($signature eq TYPE_HASH) || ($signature eq TYPE_ARRAY)) {
             my $obj = DBM::Deep->new(
@@ -2411,8 +2409,6 @@ as the original, named with a ".tmp" extension, and is deleted when the
 operation completes.  Oh, and if locking is enabled, the DB is automatically 
 locked for the entire duration of the copy.
 
-
-
 B<WARNING:> Only call optimize() on the top-level node of the database, and 
 make sure there are no child references lying around.  DBM::Deep keeps a reference 
 counter, and if it is greater than 1, optimize() will abort and return undef.
diff --git a/t/07_locking.t b/t/07_locking.t
index e2b94dd..8828bf4 100644
--- a/t/07_locking.t
+++ b/t/07_locking.t
@@ -3,6 +3,7 @@
 ##
 use strict;
 use Test::More tests => 4;
+$|=1;
 
 use_ok( 'DBM::Deep' );