begin_work, rollback, and commit now properly lock the database

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Engine / Sector / FileHeader.pm

diff --git a/lib/DBM/Deep/Engine/Sector/FileHeader.pm b/lib/DBM/Deep/Engine/Sector/FileHeader.pm
index ea14d9e..fe70e6a 100644 (file)
--- a/lib/DBM/Deep/Engine/Sector/FileHeader.pm
+++ b/lib/DBM/Deep/Engine/Sector/FileHeader.pm
@@ -198,7 +198,8 @@ sub read_txn_slots {
     my $e = $self->engine;
     my $bl = $e->txn_bitfield_len;
     my $num_bits = $bl * 8;
-    return split '', unpack( 'b'.$num_bits, $self->read( $e->trans_loc, $bl ) );
+    my @x = split '', unpack( 'b'.$num_bits, $self->read( $e->trans_loc, $bl ) );
+    return @x;
 }
 
 sub write_txn_slots {