From 623f80a16fb1d68e2ec1d8e7033c194a3a5b2543 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 30 Jan 2005 11:57:16 +0000
Subject: [PATCH] Fixed MyWeb directory reference to strip the leading 'My/'.

---
 Web.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]);
-- 
1.8.3.1