The pintos script tried to do so before but "print" and "syswrite"
are buffered differently and interfere with one another.
Thanks to Karan Misra <kmisra@stanford.edu> for pointing out the
problem and confirming the solution.
foreach @puts;
# Write end-of-archive marker.
- print { $disks{SCRATCH}{HANDLE} } "\0" x 1024;
+ write_fully ($disks{SCRATCH}{HANDLE}, $disks{SCRATCH}{FILE_NAME},
+ "\0" x 1024);
}
# Make sure the scratch disk is big enough to get big files.