Try to make files locale compliant
authorhpa <hpa>
Tue, 1 Jul 2003 00:50:23 +0000 (00:50 +0000)
committerhpa <hpa>
Tue, 1 Jul 2003 00:50:23 +0000 (00:50 +0000)
memdisk/postprocess.pl

index a3f823d..7e222a6 100755 (executable)
@@ -21,7 +21,9 @@ eval { use bytes; };
 ($out,$file16,$file32) = @ARGV;
 
 open(OUT, "> $out\0") or die "$0: Cannot create file: $out\n";
+eval { binmode OUT; };
 open(FILE, "< $file16\0") or die "$0: Cannot open file: $file16\n";
+eval { binmode FILE };
 
 @info = stat(FILE);
 $size = $info[7];