In buildtoc, inline path2modname() into its only caller.
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 11:31:26 +0000 (11:31 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 11:31:26 +0000 (11:31 +0000)
pod/buildtoc

index 3ec77cf..763f339 100644 (file)
@@ -299,7 +299,11 @@ close MASTER;
 
   my %done;
   for (@modpods) {
-    my $name = path2modname($_);
+    my $name = $_;
+    $name =~ s/\.p(m|od)$//;
+    $name =~ s-.*?/lib/--;
+    $name =~ s-/-::-g;
+    $name =~ s/(\w+)::\1/$1/;
     if ($name =~ /^[a-z]/) {
       $Pragmata{$name} = $_;
     } else {
@@ -314,15 +318,6 @@ close MASTER;
 # OK. Now a lot of ancillary function definitions follow
 # Main program returns at "Do stuff"
 
-sub path2modname {
-    local $_ = shift;
-    s/\.p(m|od)$//;
-    s-.*?/lib/--;
-    s-/-::-g;
-    s/(\w+)::\1/$1/;
-    return $_;
-}
-
 sub output ($);
 
 sub output_perltoc {