In buildtoc, the module de-duplication logic applies equally to pragmata.

diff --git a/pod/buildtoc b/pod/buildtoc
index 763f339..44f924c 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -304,12 +304,11 @@ close MASTER;
     $name =~ s-.*?/lib/--;
     $name =~ s-/-::-g;
     $name =~ s/(\w+)::\1/$1/;
+    next if $done{$name}++;
+
     if ($name =~ /^[a-z]/) {
       $Pragmata{$name} = $_;
     } else {
-      if ($done{$name}++) {
-       next;
-      }
       $Modules{$name} = $_;
     }
   }