runtests.pl: properly print the test if it contains binary zeros
This commit is contained in:
parent
6e7ce9bbfb
commit
43eef423d6
@ -3763,7 +3763,9 @@ sub singletest {
|
|||||||
|
|
||||||
# save the new version
|
# save the new version
|
||||||
open(D, ">$otest");
|
open(D, ">$otest");
|
||||||
print D @entiretest;
|
foreach my $bytes (@entiretest) {
|
||||||
|
print D pack('a*', $bytes) or die "Failed to print '$bytes': $!";
|
||||||
|
}
|
||||||
close(D);
|
close(D);
|
||||||
|
|
||||||
# in case the process changed the file, reload it
|
# in case the process changed the file, reload it
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user