he unpack code for ICO/CUR file handling could extend 32-bit unsigned values to 64...
[imager.git] / regops.perl
index 549244e..613ffc2 100644 (file)
@@ -5,6 +5,7 @@ my $in = shift or die "No input name";
 my $out = shift or die "No output name";
 open(IN, $in) or die "Cannot open input $in: $!";
 open(OUT, "> $out") or die "Cannot create $out: $!";
+binmode OUT;
 print OUT <<'EOS';
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;