Add binmode declaration for mkdiskimage

diff --git a/mkdiskimage.in b/mkdiskimage.in
index 522d717..74ef3f3 100755 (executable)
--- a/mkdiskimage.in
+++ b/mkdiskimage.in
@@ -59,6 +59,7 @@ $cylsize = $h*$s*512;
 
 sysopen(OUTPUT, $file, O_CREAT|O_RDWR|O_TRUNC, 0666)
     or die "$0: Cannot open: $file\n";
+eval { binmode OUTPUT; };
 
 # Print out DOSEMU header, if requested
 if ( $opt{'d'} ) {