From 8096de749741f6365887991e6d555dc6b115e6fc Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Tue, 22 Apr 2025 18:54:04 +0200
Subject: [PATCH] MultipartFormData: Fix ->save() on zero-length values

---
 FU/MultipartFormData.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FU/MultipartFormData.pm b/FU/MultipartFormData.pm
index 8441740..7c4f467 100644
--- a/FU/MultipartFormData.pm
+++ b/FU/MultipartFormData.pm
@@ -77,7 +77,7 @@ sub syswrite($o, $fh) {
 
 sub save($o, $fn) {
     open my $F, '>', $fn or confess "Error opening '$fn': $!";
-    $o->syswrite($F) or confess "Error writing to '$fn': $!";
+    defined $o->syswrite($F) or confess "Error writing to '$fn': $!";
 }
 
 sub describe($o) {