From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Wed, 19 Apr 2006 18:09:52 +0000 (+0000)
Subject: Initial refactoring to use ::File for all physical file access instead of allowing... 
X-Git-Tag: 0-99_01~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4323f4120c7bbc26f70bcf457c77dba3565f736f;p=dbsrgits%2FDBM-Deep.git

Initial refactoring to use ::File for all physical file access instead of allowing it in ::Engine
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 55e4d64..2e59769 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -626,13 +626,13 @@ 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;
-    }
+    #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(