In buildtoc, the module de-duplication logic applies equally to pragmata.
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 11:41:42 +0000 (11:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 11:41:42 +0000 (11:41 +0000)
pod/buildtoc

index 763f339..44f924c 100644 (file)
@@ -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} = $_;
     }
   }