r11693@rob-kinyons-powerbook58: rob | 2006-04-30 22:15:38 -0400

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep.pm

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index af0478a..268c835 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -233,7 +233,17 @@ sub import {
         $struct = $self->_repr( @_ );
     }
 
-    return $self->_import( $struct );
+#XXX These are correct, but impossible until the other bug is fixed
+    eval {
+#        $self->begin_work;
+        $self->_import( $struct );
+#        $self->commit;
+    }; if ( $@ ) {
+        $self->rollback;
+        die $@;
+    }
+
+    return 1;
 }
 
 sub optimize {
@@ -248,6 +258,8 @@ sub optimize {
 #        $self->_throw_error("Cannot optimize: reference count is greater than 1");
 #    }
 
+    #XXX Do we have to lock the tempfile?
+
     my $db_temp = DBM::Deep->new(
         file => $self->_fileobj->{file} . '.tmp',
         type => $self->_type