From 118ec03fd467173c401518becd54b621f9abb080 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 8 Nov 2019 20:20:18 +0000 Subject: 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. --- script/public-inbox-edit | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3-24-ge0c7