Curliff and liff with ease.

p4raw-id: //depot/perl@19521

1 files changed, 37 insertions, 0 deletions

diff --git a/Porting/curliff.pl b/Porting/curliff.pl
new file mode 100644
index 0000000000..cbf2aa6cbc
--- /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 $.
+    }
+}