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:
5b1f926
)
Stop pod/buildtoc from changing EOLs on Win32
author
Steve Hay
<steve.m.hay@googlemail.com>
Sun, 21 Feb 2010 19:41:49 +0000
(19:41 +0000)
committer
Steve Hay
<steve.m.hay@googlemail.com>
Sun, 21 Feb 2010 19:41:49 +0000
(19:41 +0000)
pod/buildtoc
patch
|
blob
|
history
diff --git
a/pod/buildtoc
b/pod/buildtoc
index
4dd4271
..
12cbc94
100755
(executable)
--- a/
pod/buildtoc
+++ b/
pod/buildtoc
@@
-748,6
+748,7
@@
while (my ($target, $name) = each %Targets) {
}
print "Now processing $name\n" if $Verbose;
open THING, $name or die "Can't open $name: $!";
+ binmode THING;
my @orig = <THING>;
my $orig = join '', @orig;
close THING;
@@
-762,6
+763,7
@@
while (my ($target, $name) = each %Targets) {
}
rename $name, "$name.old" or die "$0: Can't rename $name to $name.old: $!";
open THING, ">$name" or die "$0: Can't open $name for writing: $!";
+ binmode THING;
print THING $new or die "$0: print to $name failed: $!";
close THING or die "$0: close $name failed: $!";
}