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.
26 local($^I, @ARGV) = ('.orig', @FILES);
29 s/\015\012/\012/; # Curliffs to liffs.
31 s/\015?\012/\015\012/; # Curliffs and liffs to curliffs.
34 close ARGV if eof; # Reset $.