Macintosh-Tools
/
convert-binhex
mirror of https://github.com/stephenenelson/convert-binhex.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Applied patch for "#17683: test/hexbin script fails to binmode output FH" from SOMIAN@cpan.org

This commit is contained in:
Stephen Nelson 2013-08-20 23:50:14 -07:00
parent 835670c91b
commit 51be79ca38
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/hexbin
View File

@ -43,6 +43,7 @@ foreach $infile (@ARGV) {
print STDERR "Writing $fname (data fork)\n";
printf STDERR "Expecting: %6d bytes\n", $HQX->data_length if $opt_v;
open DATA, ">$fname" or die "open $fname: $!";
binmode DATA;
while ($bytes = $HQX->read_data) {
print DATA $bytes;
}
@ -54,6 +55,7 @@ foreach $infile (@ARGV) {
print STDERR "Writing $fname (resource fork)\n";
printf STDERR "Expecting: %6d bytes\n", $HQX->resource_length if $opt_v;
open RESOURCE, ">$fname" or die "open $fname: $!";
binmode RESOURCE;
while ($bytes = $HQX->read_resource) {
print RESOURCE $bytes;
}