X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep%2FEngine%2FSector%2FData.pm;h=e12e942589f3fe73ba287dbe26bfc840f7d3cd0c;hb=badf847ca0fd2a37bf21caf92454a92d568e3ccf;hp=c9695eebeede77836f2d1ec502b9f46c4d68c20c;hpb=80656ce3c356053e563c882733b5bf66307c9c20;p=dbsrgits%2FDBM-Deep.git diff --git a/lib/DBM/Deep/Engine/Sector/Data.pm b/lib/DBM/Deep/Engine/Sector/Data.pm index c9695ee..e12e942 100644 --- a/lib/DBM/Deep/Engine/Sector/Data.pm +++ b/lib/DBM/Deep/Engine/Sector/Data.pm @@ -9,7 +9,10 @@ use DBM::Deep::Engine::Sector; our @ISA = qw( DBM::Deep::Engine::Sector ); # This is in bytes -sub size { $_[0]{engine}->data_sector_size } +sub size { + my $e = ref($_[0]) ? $_[0]{engine} : $_[1]; + return $e->data_sector_size; +} sub free_meth { return '_add_free_data_sector' } sub clone {