diff options
-rwxr-xr-x | tests/runtests.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 7ac22035b..066a91bf5 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 |