Added description to a test

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

diff --git a/lib/DBM/Deep/Engine/Sector/Null.pm b/lib/DBM/Deep/Engine/Sector/Null.pm
index c97f0f5..18af99a 100644 (file)
--- a/lib/DBM/Deep/Engine/Sector/Null.pm
+++ b/lib/DBM/Deep/Engine/Sector/Null.pm
@@ -1,6 +1,6 @@
 package DBM::Deep::Engine::Sector::Null;
 
-use 5.006;
+use 5.006_000;
 
 use strict;
 use warnings FATAL => 'all';
@@ -20,16 +20,12 @@ sub _init {
     unless ( $self->offset ) {
         $self->{offset} = $engine->_request_data_sector( $self->size );
 
-        my $string = chr(0) x $self->size;
-
-        substr( $string, 0, 1, $self->type );
-        substr( $string, $self->base_size, $engine->byte_size + 1,
+        $self->write( 0, $self->type );
+        $self->write( $self->base_size,
             pack( $engine->StP($engine->byte_size), 0 )   # Chain loc
           . pack( $engine->StP(1), $self->data_length ),  # Data length
         );
 
-        $engine->storage->print_at( $self->offset, $string );
-
         return;
     }
 }