From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Feb 2008 05:06:02 +0000 (-0800)
Subject:  * Fix the the default web domain assignment to handle '/' correctly
X-Git-Tag: release/2.6.0~510^2~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=106cc7b51d4ad031290525d76bd77607d0793063;p=debbugs.git

 * Fix the the default web domain assignment to handle '/' correctly
---

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index b54f7c9b..bc4a7cfc 100644
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -142,7 +142,7 @@ concatenation of L</web_host> and L</web_host_bug_dir>
 
 =cut
 
-set_default(\%config,'web_domain',$config{web_host}.'/'.$config{web_host_bug_dir});
+set_default(\%config,'web_domain',$config{web_host}.($config{web_host}=~m{/$}?'':'/').$config{web_host_bug_dir});
 
 =item html_suffix $gHTMLSuffix