Curliff and liff with ease.

p4raw-id: //depot/perl@19521

diff --git a/MANIFEST b/MANIFEST
index dff5e79..e23d2b9 100644 (file)
--- 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 (file)
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 $.
+    }
+}