diff options
-rwxr-xr-x | fix-eol | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -34,7 +34,7 @@ sub convert { # process all file my $out = File::Temp->new(DIR => '.', UNLINK => 0); print $out $line; - while (($line = <$in>) && defined $line) { + while (defined ($line = <$in>)) { $line =~ s/\r\n$/\n/; print $out $line; } |