Workaround MyWeb CVS path for all /^My::/ packages.

diff --git a/Web.pm b/Web.pm
index ea6f32f..b5ac856 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -313,7 +313,10 @@ sub footer (;$)
                                        $cvs_id_split[2]=""
                                                        .a_href((map({ my $s=$_; $s=~s#/viewcvs/#$&~checkout~/#; $s; } $W->{"viewcvs"}))[0]."$file?rev=".$cvs_id_split[2],
                                                                        $cvs_id_split[2]);
                                        $cvs_id_split[2]=""
                                                        .a_href((map({ my $s=$_; $s=~s#/viewcvs/#$&~checkout~/#; $s; } $W->{"viewcvs"}))[0]."$file?rev=".$cvs_id_split[2],
                                                                        $cvs_id_split[2]);

-                                       $cvs_id_split[1]=a_href($W->{"viewcvs"}.$file,
+                                       # FIXME: Use 'CVS/Repository' here.
+                                       my $viewcvs=$W->{"viewcvs"};
+                                       $viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $package=~/^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]);
                                        }
                                                        ($package!~/^Apache::/ ? $package : $cvs_id_split[1]));
                                        $cvs_id_split[5]=&{$W->{"cvs_id_author"}}($cvs_id_split[5]);
                                        }