mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-29 21:47:59 +00:00
Code Issues Releases Wiki Activity

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