diff --git a/bin/tests/system/digcomp.pl b/bin/tests/system/digcomp.pl index d43c8b2ea3..cf63c0e18a 100644 --- a/bin/tests/system/digcomp.pl +++ b/bin/tests/system/digcomp.pl @@ -29,7 +29,8 @@ $rcode2 = "none"; open(FILE1, $file1) || die("open: $file1: $!\n"); while () { chomp; - ~ s/\R//g; + ~ s/\n//g; + ~ s/\r\n//g; if (/^;.+status:\s+(\S+).+$/) { $rcode1 = $1; } @@ -65,7 +66,8 @@ $printed = 0; open(FILE2, $file2) || die("open: $file2: $!\n"); while () { chomp; - ~ s/\R//g; + ~ s/\n//g; + ~ s/\r\n//g; if (/^;.+status:\s+(\S+).+$/) { $rcode2 = $1; }