print out only at end, to avoid dups

diff --git a/doc/antora/missing.pl b/doc/antora/missing.pl
index 216001cce9962adfeac283ac5bd6305982b2bbff..f8d3103aaed639139deb96e9eb941a0f2f8f206c 100755 (executable)
--- a/doc/antora/missing.pl
+++ b/doc/antora/missing.pl
@@ -41,17 +41,18 @@ while (@ARGV) {
 
     }
 
-    foreach my $name (sort {$a cmp $b} keys %used) {
+    close $FILE;
+}
+
+foreach my $name (sort {$a cmp $b} keys %used) {
        next if -e $name;
 
        print "REF-NO-FILE: ", $name, "\n";
-    }
+}
 
-    foreach my $name (sort {$a cmp $b} keys %exists) {
+foreach my $name (sort {$a cmp $b} keys %exists) {
        next if defined $used{$name};
 
        print "FILE-NO-REF: ", $name, "\n";
-    }
-
-    close $FILE;
 }
+