- if (!$self->{fh} ||
- $self->{mode} ne ">>" ||
- $dayno != $self->{dayno}) {
- $self->open($dayno, ">>") or confess "can't open $self->{fn} $!";
+ if (!$self->{fh} || $self->{mode} ne "r" || $dayno != $self->{dayno}) {
+ $self->open($dayno, "a+") or confess "can't open $self->{fn} $!";