*************** *** 15,27 **** # main opendir (BIN, $dir) or die "Can't open $dir: $!"; - my @files = sort { -M "$dir/$b" <=> -M "$dir/$a" } - grep { -f "$dir/$_" } - readdir BIN; - closedir (BIN); # parse xml files - foreach my $file (@files) { if (-T "$dir/$file" && $file =~ /^(zone|revzone)/) { open (FH, "< $dir/$file") or die "Couldn't open $dir/$file for reading: $!\n"; --- 15,23 ---- # main opendir (BIN, $dir) or die "Can't open $dir: $!"; # parse xml files + while (defined ($file = readdir BIN)) { if (-T "$dir/$file" && $file =~ /^(zone|revzone)/) { open (FH, "< $dir/$file") or die "Couldn't open $dir/$file for reading: $!\n"; *************** *** 59,61 **** } # if zone || revzone } # while files --- 55,59 ---- } # if zone || revzone } # while files + closedir (BIN); +