Merge pull request #279 from mknos/mail-mbox-write

mail can't write to mbox
briandfoy · Oct 4, 2023 · d1ef74c · d1ef74c
2 parents b58e3a7 + aa477e4
commit d1ef74c
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/bin/mail b/bin/mail
@@ -425,13 +425,10 @@ sub write {
 	my $self=shift;
 	my $wa=shift;
 
-	$of=">" . $self->file;
-	if (exists $$wa{append} ) {
-		$of=">$of";
-	}
+	my $mode = exists $$wa{append} ? '>>' : '>';
 	my $alt_msg="\"" . $self->file . "\" ";
 	$alt_msg.=(-e $self->file)?"[Appended]":"[New File]";
-	if (! open(MBOX, '<', $of )) {
+	if (!open(MBOX, $mode, $self->file)) {
 		warn "Failed to write to ", $self->file, ": $!\n";
 		return;
 	}