X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep%2FArray.pm;h=27c8391afc2fed12d26bc3f76a780332468fcaac;hb=4d35d8569ef489436f3e5e77bdc1bd82cdc62922;hp=a11619a725ebd6f764d68004fae318c2b356fd75;hpb=df9a659d4a89ec1f646f397960698afe8df5bbfc;p=dbsrgits%2FDBM-Deep.git

diff --git a/lib/DBM/Deep/Array.pm b/lib/DBM/Deep/Array.pm
index a11619a..27c8391 100644
--- a/lib/DBM/Deep/Array.pm
+++ b/lib/DBM/Deep/Array.pm
@@ -155,12 +155,12 @@ sub FETCHSIZE {
 
     $self->lock( $self->LOCK_SH );
 
-	my $SAVE_FILTER = $self->root->{filter_fetch_value};
-	$self->root->{filter_fetch_value} = undef;
+	my $SAVE_FILTER = $self->_root->{filter_fetch_value};
+	$self->_root->{filter_fetch_value} = undef;
 	
 	my $packed_size = $self->FETCH('length');
 	
-	$self->root->{filter_fetch_value} = $SAVE_FILTER;
+	$self->_root->{filter_fetch_value} = $SAVE_FILTER;
 	
     $self->unlock;
 
@@ -180,12 +180,12 @@ sub STORESIZE {
 	
     $self->lock( $self->LOCK_EX );
 
-	my $SAVE_FILTER = $self->root->{filter_store_value};
-	$self->root->{filter_store_value} = undef;
+	my $SAVE_FILTER = $self->_root->{filter_store_value};
+	$self->_root->{filter_store_value} = undef;
 	
 	my $result = $self->STORE('length', pack($DBM::Deep::LONG_PACK, $new_length));
 	
-	$self->root->{filter_store_value} = $SAVE_FILTER;
+	$self->_root->{filter_store_value} = $SAVE_FILTER;
 	
     $self->unlock;