Fixed MyWeb directory reference to strip the leading 'My/'.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index b5ac856..524cf14 100644 (file)
--- 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]);