Removed file-is-open gatekeeper checks ... no tests for them

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index c79fbfd..3dcbc19 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -1287,13 +1287,6 @@ sub STORE {
        
        my $md5 = $DIGEST_FUNC->($key);
        
-       ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh) && !$self->_open()) {
-#              return;
-#      }
-
     unless ( _is_writable( $self->_fh ) ) {
         $self->_throw_error( 'Cannot write to a readonly filehandle' );
     }
@@ -1357,11 +1350,6 @@ sub FETCH {
     my $self = shift->_get_self;
     my $key = shift;
 
-       ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
        my $md5 = $DIGEST_FUNC->($key);
 
        ##
@@ -1400,11 +1388,6 @@ sub DELETE {
        my $md5 = $DIGEST_FUNC->($key);
 
        ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
-       ##
        # Request exclusive lock for writing
        ##
        $self->lock( LOCK_EX );
@@ -1445,11 +1428,6 @@ sub EXISTS {
        my $md5 = $DIGEST_FUNC->($key);
 
        ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
-       ##
        # Request shared lock for reading
        ##
        $self->lock( LOCK_SH );
@@ -1481,11 +1459,6 @@ sub CLEAR {
     my $self = $_[0]->_get_self;
 
        ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
-       ##
        # Request exclusive lock for writing
        ##
        $self->lock( LOCK_EX );

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index 9dcc7ec..778c7cc 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -64,11 +64,6 @@ sub FIRSTKEY {
     my $self = $_[0]->_get_self;
 
        ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
-       ##
        # Request shared lock for reading
        ##
        $self->lock( $self->LOCK_SH );
@@ -95,11 +90,6 @@ sub NEXTKEY {
        my $prev_md5 = $DBM::Deep::DIGEST_FUNC->($prev_key);
 
        ##
-       # Make sure file is open
-       ##
-#      if (!defined($self->_fh)) { $self->_open(); }
-       
-       ##
        # Request shared lock for reading
        ##
        $self->lock( $self->LOCK_SH );