epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Added binmode on output file and some comments.

Browse Source
This commit is contained in:
Janet B. Anderson
2004-02-19 22:39:12 +00:00
parent bfd0826f03
commit 0d071c9f0c
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
configure/tools/dos2unix.pl
View File

@@ -20,10 +20,14 @@ foreach( @files ) {
open(INPUT, "<$_");
$backup = "$_.bak";
rename( $_, $backup) || die "Unable to rename $_\n$!\n";
# Make the output be binary so it won't convert /n back to /r/n
binmode OUTPUT, ":raw";
open(OUTPUT, ">$_");
binmode OUTPUT, ":raw";
while(<INPUT>) {
s/\r\n/\n/;
print OUTPUT;
# Remove CR-LF sequences
s/\r\n/\n/;
print OUTPUT;
}
close INPUT;
close OUTPUT;