From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Fri, 17 Feb 2006 01:20:17 +0000 (+0000)
Subject: Fixed bug that I created in last checkin
X-Git-Tag: 0-97~60
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e6b66a4e6ddf1d085144a7d160fa1f54e3f0821;p=dbsrgits%2FDBM-Deep.git

Fixed bug that I created in last checkin
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index dfcc152..e10a6aa 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -100,8 +100,8 @@ sub SIG_SIZE  () {  1  }
 ##
 # Setup constants for users to pass to new()
 ##
-*TYPE_HASH = \&SIG_HASH;
-*TYPE_ARRAY = \&SIG_ARRAY;
+sub TYPE_HASH  () { return SIG_HASH; }
+sub TYPE_ARRAY () { return SIG_ARRAY; }
 
 sub new {
 	##
@@ -401,7 +401,7 @@ sub _add_bucket {
 			
             $location = $internal_ref
                 ? $value->base_offset
-                :$location = $self->root->{end};
+                : $self->root->{end};
 			
 			seek($self->fh, $tag->{offset} + ($i * $BUCKET_SIZE), 0);
 			$self->fh->print( $md5 . pack($LONG_PACK, $location) );