- my $bw = $self->{barrier_wait} or return;
- my $l = $bw->getline;
- $l eq "barrier_done\n" or die "bad response from barrier_wait: $l\n";
+ if (my $bw = $self->{barrier_wait}) {
+ my $l = $bw->getline;
+ $l eq "barrier_done\n" or die "bad response from barrier_wait: $l\n";
+ } else {
+ $self->commit_lazy;
+ }