diff options
Diffstat (limited to 'Porting')
| -rwxr-xr-x | Porting/bump-perl-version | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version index c460ad4ca7..b0e77a8907 100755 --- a/Porting/bump-perl-version +++ b/Porting/bump-perl-version @@ -293,6 +293,7 @@ sub do_update { my %contents; for my $file (sort keys %changes) { open my $fh, '<', $file or die "open '$file': $!\n"; + binmode $fh; $contents{$file} = [ <$fh> ]; chomp @{$contents{$file}}; close $fh or die "close: '$file': $!\n"; @@ -323,6 +324,7 @@ sub do_update { for my $file (sort keys %contents) { my $nfile = "$file-new"; open my $fh, '>', $nfile or die "create '$nfile' failed: $!\n"; + binmode $fh; print $fh $_, "\n" for @{$contents{$file}}; close $fh or die "failed to close $nfile; aborting: $!\n"; |