From d7cd3fabd8ed412336acddfa795c9d7a2e334fc6 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 30 Jan 2005 11:52:20 +0000
Subject: [PATCH] Workaround MyWeb CVS path for all /^My::/ packages.

---
 Web.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Web.pm b/Web.pm
index ea6f32f..b5ac856 100644
--- 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[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]);
 					}
-- 
1.8.3.1