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