Minor changes

* axfr2acl/axfr2acl

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;