From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Wed, 19 Apr 2006 18:12:51 +0000 (+0000)
Subject: Removed only physical access to the  in ::Deep
X-Git-Tag: 0-99_01~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71a941fd3ec9bae9f601138e9a280aba273ed67b;p=dbsrgits%2FDBM-Deep.git

Removed only physical access to the  in ::Deep
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 2e59769..deb56d5 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -610,7 +610,6 @@ sub CLEAR {
     {
         my $lhs = $self->_find_parent;
 
-        my $rhs = '()';
         if ( $self->_type eq TYPE_HASH ) {
             $lhs = '%{' . $lhs . '}';
         }
@@ -618,7 +617,7 @@ sub CLEAR {
             $lhs = '@{' . $lhs . '}';
         }
 
-        $self->_fileobj->audit( "$lhs = $rhs;" );
+        $self->_fileobj->audit( "$lhs = ();" );
     }
 
     ##
@@ -626,14 +625,6 @@ sub CLEAR {
     ##
     $self->lock( LOCK_EX );
 
-    #my $fh = $self->_fh;
-    #
-    #seek($fh, $self->_base_offset + $self->_fileobj->{file_offset}, SEEK_SET);
-    #if (eof $fh) {
-    #    $self->unlock();
-    #    return;
-    #}
-
 #XXX This needs updating to use _release_space
     $self->{engine}->write_tag(
         $self->_base_offset, $self->_type,