summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2015-07-10 12:28:34 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2015-07-10 12:28:34 (GMT)
commit5bbf06a701121f6c66f569e6ef99fddf017e95cd (patch) (side-by-side diff)
tree70c4be4cf8740ed40964655dfcf69d5082a3c3e8
parent9517274eff7854909fe1aada3f8aadc580d0ce2e (diff)
downloaddnstools-5bbf06a701121f6c66f569e6ef99fddf017e95cd.tar.gz
dnstools-5bbf06a701121f6c66f569e6ef99fddf017e95cd.tar.bz2
Minor changes
* axfr2acl/axfr2acl
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xaxfr2acl/axfr2acl6
1 files changed, 2 insertions, 4 deletions
diff --git a/axfr2acl/axfr2acl b/axfr2acl/axfr2acl
index 1accab7..19e4f24 100755
--- a/axfr2acl/axfr2acl
+++ b/axfr2acl/axfr2acl
@@ -155,7 +155,7 @@ sub read_acl($) {
@oldlist = Net::CIDR::cidradd($_,@oldlist);
$line++;
}
- sort @oldlist;
+ @oldlist = sort @oldlist;
close(FILE);
}
@@ -314,12 +314,10 @@ if (!$need_update) {
exit(1);
}
-sort @netlist;
-
if ($update) {
my %oldset = map { $_ => $_ } @oldlist;
$update = 0;
- foreach my $net (@netlist) {
+ foreach my $net (sort @netlist) {
if (!$oldset{$net}) {
$update = 1;
last;

Return to:

Send suggestions and report system problems to the System administrator.