blob: d7c7591d957f1c29c34e4aff3ac7bcebeb895304 (
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
37
38
39
40
41
42
43
|
#!/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);
# This list is also in makerel.
my @FILES = qw(
djgpp/configure.bat
README.ce
README.dos
README.symbian
README.win32
symbian/config.pl
symbian/makesis.pl
symbian/README
symbian/xsbuild.pl
win32/Makefile
win32/makefile.mk
win32/Makefile.ce
win32/ce-helpers/compile-all.bat
win32/ce-helpers/compile.bat
win32/ce-helpers/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 $.
}
}
|
