In buildtoc, eliminate a substitution which mangles nested package names.
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 16:58:28 +0000 (16:58 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 17:00:46 +0000 (17:00 +0000)
It's not clear what the intent of s/(\w+)::\1/$1/; was, but it converts
"autodie::exception" to "autodiexception" (etc), which is clearly buggy.
The regexp has been in pod/buildtoc since it was added in cb1a09d0194fed9b.

pod/buildtoc

index a22ed2e..1a4e02c 100644 (file)
@@ -303,7 +303,6 @@ close MASTER;
     $name =~ s/\.p(m|od)$//;
     $name =~ s-.*?/lib/--;
     $name =~ s-/-::-g;
-    $name =~ s/(\w+)::\1/$1/;
     next if $done{$name}++;
 
     if ($name =~ /^[a-z]/) {