diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2015-07-10 15:28:34 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2015-07-10 15:28:34 +0300 |
commit | 5bbf06a701121f6c66f569e6ef99fddf017e95cd (patch) | |
tree | 70c4be4cf8740ed40964655dfcf69d5082a3c3e8 /axfr2acl | |
parent | 9517274eff7854909fe1aada3f8aadc580d0ce2e (diff) | |
download | dnstools-5bbf06a701121f6c66f569e6ef99fddf017e95cd.tar.gz dnstools-5bbf06a701121f6c66f569e6ef99fddf017e95cd.tar.bz2 |
Minor changes
* axfr2acl/axfr2acl
Diffstat (limited to 'axfr2acl')
-rwxr-xr-x | axfr2acl/axfr2acl | 6 |
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; |