From 43eef423d6a6d43da27d5e96d08515e95df9d4c7 Mon Sep 17 00:00:00 2001
From: Fabian Keil <fk@fabiankeil.de>
Date: Sun, 24 Jan 2021 15:12:23 +0100
Subject: [PATCH] runtests.pl: properly print the test if it contains binary
 zeros

---
 tests/runtests.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 7ac22035b0..066a91bf5c 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3763,7 +3763,9 @@ sub singletest {
 
     # save the new version
     open(D, ">$otest");
-    print D @entiretest;
+    foreach my $bytes (@entiretest) {
+        print D pack('a*', $bytes) or die "Failed to print '$bytes': $!";
+    }
     close(D);
 
     # in case the process changed the file, reload it
-- 
2.47.3