X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=Web.pm;fp=Web.pm;h=524cf143e94cc8cfa6a8ee8df4b85b4d6e50a5ee;hb=623f80a16fb1d68e2ec1d8e7033c194a3a5b2543;hp=b5ac856a6b4366ced7eaab6966469a8cee649367;hpb=d7cd3fabd8ed412336acddfa795c9d7a2e334fc6;p=MyWeb.git

diff --git a/Web.pm b/Web.pm
index b5ac856..524cf14 100644
--- a/Web.pm
+++ b/Web.pm
@@ -315,7 +315,7 @@ sub footer (;$)
 									$cvs_id_split[2]);
 					# FIXME: Use 'CVS/Repository' here.
 					my $viewcvs=$W->{"viewcvs"};
-					$viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $package=~/^My::/;
+					$viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $file=~s#^My/##;
 					$cvs_id_split[1]=a_href($viewcvs.$file,
 							($package!~/^Apache::/ ? $package : $cvs_id_split[1]));
 					$cvs_id_split[5]=&{$W->{"cvs_id_author"}}($cvs_id_split[5]);