fix wrong s/// on package_pages

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index e262a34d981b7ac8d3f1d1d28c4ebe2b8e8a7333..a02072c65b78565895712f8d09ad554a9635f929 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -215,7 +215,7 @@ Domain where where usertags of packages belong; defaults to $gPackagePages
 
 =cut
 
-set_default(\%config,'usertag_package_domain',map {my $a = $_; defined $a?s{https?://}{}:(); $a} $config{package_pages});
+set_default(\%config,'usertag_package_domain',map {my $a = $_; defined $a?$a =~ s{https?://}{}:(); $a} $config{package_pages});
 
 
 =item subscription_domain $gSubscriptionDomain