blob: 636dccdf719bed0e8f892fa507f8b2de47f0f364 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl -ws
# curliff.pl - convert certain files in the Perl distribution that
# need to be in CR-LF format to CR-LF, or back to LF format (with the
# -r option). The CR-LF format is NOT to be used for checking in
# files to the Perforce repository, but it IS to be used when making
# Perl snapshots or releases.
use strict;
use vars qw($r);
my @FILES = qw(
djgpp/configure.bat
README.ce
README.dos
README.win32
win32/Makefile
win32/makefile.mk
wince/compile-all.bat
wince/README.perlce
wince/registry.bat
);
{
local($^I, @ARGV) = ('.orig', @FILES);
while (<>) {
if ($r) {
s/\015\012/\012/; # Curliffs to liffs.
} else {
s/\015?\012/\015\012/; # Curliffs and liffs to curliffs.
}
print;
close ARGV if eof; # Reset $.
}
}
|
