edit: check for write errors writing "From_" line

We need to check every print to a regular file for errors,
because storage devices inevitably fail.

1 files changed, 2 insertions, 1 deletions

diff --git a/script/public-inbox-edit b/script/public-inbox-edit
index 24b7ed8b..43ce9900 100755
--- a/script/public-inbox-edit
+++ b/script/public-inbox-edit
@@ -130,7 +130,8 @@ foreach my $to_edit (values %$found) {
         my $tmp = $$old_raw;
         if (!$opt->{raw}) {
                 my $oid = $smsg->{blob};
-                print $edit_fh "From mboxrd\@$oid Thu Jan  1 00:00:00 1970\n";
+                print $edit_fh "From mboxrd\@$oid Thu Jan  1 00:00:00 1970\n"
+                        or die "failed to write From_ line: $!";
                 $tmp =~ s/^(>*From )/>$1/gm;
         }
         print $edit_fh $tmp or