From 51be79ca3852a7af13cbbf2b39829f6a0d440484 Mon Sep 17 00:00:00 2001
From: Stephen Nelson <stephenenelson@mac.com>
Date: Tue, 20 Aug 2013 23:50:14 -0700
Subject: [PATCH] Applied patch for "#17683: test/hexbin script fails to
 binmode output FH" from SOMIAN@cpan.org

---
 test/hexbin | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/hexbin b/test/hexbin
index 26304fb..3231f19 100644
--- a/test/hexbin
+++ b/test/hexbin
@@ -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;
     }