ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

code duplication

Browse Source
This commit is contained in:
Andreas Gustafsson
2001-05-23 04:38:04 +00:00
parent b4ec020a0c
commit 9da8ece8d3
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
util/check-pullups.pl
View File

@@ -43,10 +43,9 @@ my $c1 = readfile($ARGV[0]);
my $c2 = readfile($ARGV[1]);
foreach my $c (sort {$a <=> $b} keys %$c1) {
if ($c1->{$c}->{category} eq "bug" && !exists($c2->{$c})) {
print $c1->{$c}->{text};
}
if ($c1->{$c}->{category} eq "port" && !exists($c2->{$c})) {
my $category = $c1->{$c}->{category};
if (($category eq "bug" || $category eq "port") &&
!exists($c2->{$c})) {
print $c1->{$c}->{text};
}
}