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
@@ -152,13 +152,13 @@ sub read_acl($) {
 	next if /^acl/;
 	next if /}/;
         abend("$file:$line: invalid CIDR: $_") unless (Net::CIDR::cidrvalidate($_));
 	@oldlist = Net::CIDR::cidradd($_,@oldlist);
         $line++;
     }
-    sort @oldlist;
+    @oldlist = sort @oldlist;
     close(FILE);
 }
 
 ###########
 ($script = $0) =~ s/.*\///;
 
@@ -311,18 +311,16 @@ if ($need_update) {
 if (!$need_update) {
     debug('GENERAL', 1, "shutdown: list unchanged");
     logdone();
     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;
 	} else {
 	    delete $oldset{$net};
 	}