tests: remove some carriage returns

This commit is contained in:
Gregory Hainaut 2016-01-26 18:15:47 +01:00
parent f5d71352ca
commit 522149f503
1 changed files with 2 additions and 1 deletions

View File

@ -457,7 +457,8 @@ sub diff {
my $status = "OK"; my $status = "OK";
my $show = 10; my $show = 10;
for (my $l = 0; $l < scalar(@ref); $l++) { for (my $l = 0; $l < scalar(@ref); $l++) {
#$out[$l] =~ s/\r$//g; $ref[$l] =~ s/\r//g;
$out[$l] =~ s/\r//g;
if ($ref[$l] ne $out[$l]) { if ($ref[$l] ne $out[$l]) {
$status = "KO"; $status = "KO";