Removed only physical access to the in ::Deep

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 2e59769..deb56d5 100644 (file)
--- 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,