+ my $verify_blocks = read_blocks($tag);
+ die "can't find data from tag $tag" unless exists $verify_blocks->{$tag};
+
+ if ( join('', @{ $verify_blocks->{$tag} }) ne $data ) {
+ $retry++;
+ warn "ERROR reading data back from tag, retry $retry\n";
+ die "ABORTED" if $retry == 10;
+ goto retry_write;
+ }
+