From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 13 May 2003 19:33:44 +0000 (+0000)
Subject: Curliff and liff with ease.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39dbb0c04a808c48b0b1cf77b1b85aafa09f5578;p=p5sagit%2Fp5-mst-13.2.git

Curliff and liff with ease.

p4raw-id: //depot/perl@19521
---

diff --git a/MANIFEST b/MANIFEST
index dff5e79..e23d2b9 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2362,6 +2362,7 @@ Porting/checkVERSION.pl	Check whether we have $VERSIONs
 Porting/config.sh	Sample config.sh
 Porting/config_H	Sample config.h
 Porting/Contract	Social contract for contributed modules in Perl core
+Porting/curliff.pl	Curliff or liff your curliffable files.
 Porting/findrfuncs	Find reentrant variants of functions used in an executable
 Porting/findvars	Find occurrences of words
 Porting/fixCORE		Find and fix modules that generate warnings
diff --git a/Porting/curliff.pl b/Porting/curliff.pl
new file mode 100644
index 0000000..cbf2aa6
--- /dev/null
+++ b/Porting/curliff.pl
@@ -0,0 +1,37 @@
+#!/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.compile
+	       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 $.
+    }
+}