Teach buildtoc that - in filenames in ext/ represents :: in the package name.
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 10:49:01 +0000 (10:49 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 10:59:06 +0000 (10:59 +0000)
Previously it was treating - as a literal - in the name, and hence was
considering that files found in ext/ and in lib/ were different packages.
This has been a problem since the restructuring of ext/

pod/buildtoc

index ad782fa..e9d543d 100644 (file)
@@ -320,6 +320,7 @@ sub path2modname {
     s-.*?/(lib|ext)/--;
     s-/-::-g;
     s/(\w+)::\1/$1/;
+    s/-/::/g;
     return $_;
 }