runtests.pl: properly print the test if it contains binary zeros

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 7ac22035b00d9e85dbe771fb596086dfb2d2d1bd..066a91bf5c2fa6a1887d49e05dc2f17dccbccf0c 100755 (executable)
--- 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