r589@rob-kinyons-computer-2 (orig r10513): rkinyon | 2008-01-10 23:43:55 -0500

[dbsrgits/DBM-Deep.git] / t / 45_references.t

diff --git a/t/45_references.t b/t/45_references.t
index d39ba0a..3ed2407 100644 (file)
--- a/t/45_references.t
+++ b/t/45_references.t
@@ -11,13 +11,17 @@ use_ok( 'DBM::Deep' );
 my ($fh, $filename) = new_fh();
 my $db = DBM::Deep->new(
     file => $filename,
+    fh => $fh,
     locking => 1,
     autoflush => 1,
     num_txns  => 16,
 );
 
+seek $db->_get_self->_storage->{fh}, 0, 0;
+
 my $db2 = DBM::Deep->new(
     file => $filename,
+    fh => $fh,
     locking => 1,
     autoflush => 1,
     num_txns  => 16,