fix modification of $config{package_pages} in map

[debbugs.git] / Debbugs / Config.pm

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index e8453e4939c54d0dceec9dcc857a8bc93c8ad2bf..e262a34d981b7ac8d3f1d1d28c4ebe2b8e8a7333 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 {defined $_?s{https?://}{}:(); $_} $config{package_pages});
+set_default(\%config,'usertag_package_domain',map {my $a = $_; defined $a?s{https?://}{}:(); $a} $config{package_pages});
 
 
 =item subscription_domain $gSubscriptionDomain