A slightly better layout for the diagram.
[p5sagit/p5-mst-13.2.git] / Porting / curliff.pl
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 # This list is also in makerel.
14 my @FILES = qw(
15                djgpp/configure.bat
16                README.ce
17                README.dos
18                README.symbian
19                README.win32
20                symbian/config.pl
21                symbian/makesis.pl
22                symbian/README
23                symbian/xsbuild.pl
24                win32/Makefile
25                win32/makefile.mk
26                wince/Makefile.ce
27                wince/compile-all.bat
28                wince/README.perlce
29                wince/registry.bat
30                );
31
32 {
33     local($^I, @ARGV) = ('.orig', @FILES);
34     while (<>) {
35         if ($r) {
36             s/\015\012/\012/;           # Curliffs to liffs.
37         } else {
38             s/\015?\012/\015\012/;      # Curliffs and liffs to curliffs.
39         }
40         print;
41         close ARGV if eof;              # Reset $.
42     }
43 }