From aa8c590aff32ef3f9afa0bf4e852034133875ff5 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 4 Jul 2017 09:47:45 -0700
Subject: [PATCH] fix usertag_package_domain to strip protocol if its present

---
 Debbugs/Config.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index b24edf9..0f23881 100644
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -47,7 +47,7 @@ BEGIN {
 				 qw($gWebDomain $gHTMLSuffix $gCGIDomain $gMirrors),
 				 qw($gPackagePages $gSubscriptionDomain $gProject $gProjectTitle),
 				 qw($gMaintainer $gMaintainerWebpage $gMaintainerEmail $gUnknownMaintainerEmail),
-				 qw($gPackageTrackingDomain),
+				 qw($gPackageTrackingDomain $gUsertagPackageDomain),
 				 qw($gSubmitList $gMaintList $gQuietList $gForwardList),
 				 qw($gDoneList $gRequestList $gSubmitterList $gControlList),
 				 qw($gStrongList),
@@ -214,7 +214,7 @@ Domain where where usertags of packages belong; defaults to $gPackagePages
 
 =cut
 
-set_default(\%config,'usertag_package_domain',$config{package_pages});
+set_default(\%config,'usertag_package_domain',map {defined $_?s{https?://}{}:(); $_} $config{package_pages});
 
 
 =item subscription_domain $gSubscriptionDomain
-- 
2.39.2