Subversion Repositories DevTools

Rev

Rev 227 | Rev 255 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 227 Rev 229
Line 158... Line 158...
158 
#       - Perform line end fixup
 158 
#       - Perform line end fixup
159 
#
 159 
#
160 
open (FH, "<", $opt_infile ) || Error ("Cannot open input file: $opt_infile", "Reason: $!");
 160 
open (FH, "<", $opt_infile ) || Error ("Cannot open input file: $opt_infile", "Reason: $!");
161 
binmode(FH);
 161 
binmode(FH);
162 
 
 162 
 
- 
 
 163 
#
- 
 
 164 
#   Create the output file
- 
 
 165 
#   Attempt to delete it first, if it exists
- 
 
 166 
#
- 
 
 167 
unlink ($opt_ofile) if -f ($opt_ofile);
163 
open (FO, ">", $opt_ofile ) || Error ("Cannot open output file: $opt_ofile", "Reason: $!");
 168 
open (FO, ">", $opt_ofile ) || Error ("Cannot open output file: $opt_ofile", "Reason: $!");
164 
binmode(FO);
 169 
binmode(FO);
165 
 
 170 
 
166 
#
 171 
#
167 
#   Setup line ending
 172 
#   Setup line ending