- printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
+ # link perl module names (Xx::Xx...)
+ print $1 . showlink($2, "/source/$2");
+ }
+ if ($type && $type eq 'Comment'
+ and $contents =~ s{^(.*? by )(tools/\S+)}{}) {
+ # link generator scripts (by tools/...)
+ print $1 . showlink($2, "/source/$2");