projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9b49dc4
)
Stop Porting/bump-perl-version from changing EOLs on Win32
author
Steve Hay
<steve.m.hay@googlemail.com>
Sat, 20 Feb 2010 16:22:41 +0000
(16:22 +0000)
committer
Steve Hay
<steve.m.hay@googlemail.com>
Sat, 20 Feb 2010 16:22:41 +0000
(16:22 +0000)
Porting/bump-perl-version
patch
|
blob
|
history
diff --git
a/Porting/bump-perl-version
b/Porting/bump-perl-version
index
c460ad4
..
b0e77a8
100755
(executable)
--- 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";