upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-09 09:42:06 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

change 4487 broke the cacheclean test with old version of perl. [RT #43476]

Browse source
This commit is contained in:
Mark Andrews 2016-10-27 00:09:21 +11:00
parent 856c77cc40
commit ecd8e95bb5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bin/tests/system/digcomp.pl
View file

@ -29,7 +29,8 @@ $rcode2 = "none";
open(FILE1, $file1) || die("open: $file1: $!\n");
while (<FILE1>) {
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 (<FILE2>) {
chomp;
~ s/\R//g;
~ s/\n//g;
~ s/\r\n//g;
if (/^;.+status:\s+(\S+).+$/) {
$rcode2 = $1;
}