@@ -23,7 +23,7 @@ sub test_results
23 my $testname = $_[0];
23 my $testname = $_[0];
24 my $output = $_[1];
24 my $output = $_[1];
25 my $norm = $_[2];
25 my $norm = $_[2];
26− $output =~ s/\r$//;
26+ $output =~ s/\r$//; # remove DOS line endings if present
27 my $diffoutput = `diff $output $norm`;
27 my $diffoutput = `diff $output $norm`;
28 if ($diffoutput eq "")
28 if ($diffoutput eq "")