[p5sagit/p5-mst-13.2.git] / Porting / curliff.pl

#!/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 $.
    }
}
Commit	Line	Data
39dbb0c0	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	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	}