Print lines to standard output.

This commit is contained in:
Bradley M. Kuhn 2013-11-30 14:45:22 -05:00
parent 8aa1ba669e
commit b590029675

View file

@ -265,7 +265,7 @@ ELISP_END
open(REAL_DIARY, '>>', $config->{proposedDiary})
or DieLog("unable to append to config->{proposedDiary}: $!");
while (my $line = <NEW_DIARY>) { print REAL_DIARY $line; }
while (my $line = <NEW_DIARY>) { print $line; print REAL_DIARY $line; }
close NEW_DIARY; DieLog("error reading $newDiaryTempFile: $!") unless ($? == 0);
close REAL_DIARY; DieLog("error appending to $config->{proposedDiary}: $!") unless ($? == 0);