We will want this in a moment.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
Osstest/HistoryReport.pm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/Osstest/HistoryReport.pm b/Osstest/HistoryReport.pm
index f8a49955..75ec75f3 100644
--- a/Osstest/HistoryReport.pm
+++ b/Osstest/HistoryReport.pm
@@ -45,6 +45,8 @@ BEGIN {
use POSIX;
+our $url_ok_chars = '-+=/~:;_.,\w';
+
our @key_cols;
our $taskprint='';
@@ -163,7 +165,7 @@ sub url_unquote ($) {
sub url_quote ($) {
local ($_) = "$_[0]";
- s{[^-+=/~:;_.,\w]}{ sprintf "%%%02x", ord $& }ge;
+ s{[^$url_ok_chars]}{ sprintf "%%%02x", ord $& }ge;
$_;
}
--
2.11.0
