support files which have CR LF ending like those in win32utils
This commit is contained in:
@@ -227,7 +227,7 @@ foreach $file (keys %file_types) {
|
||||
|
||||
($nonspaceprefix = $prefix) =~ s/\s+$//;
|
||||
|
||||
open(SOURCE, "<$file") || die "can't open $file: $!";
|
||||
open(SOURCE, "<:crlf", $file) || die "can't open $file: $!";
|
||||
$_ = <SOURCE>;
|
||||
if ($type eq "YACC") {
|
||||
unless ($_ eq "%{\n") {
|
||||
|
||||
Reference in New Issue
Block a user