Right now all the callers have keys which don't need quoting.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
Osstest/HistoryReport.pm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/Osstest/HistoryReport.pm b/Osstest/HistoryReport.pm
index 20913d27..3e2ad0d3 100644
--- a/Osstest/HistoryReport.pm
+++ b/Osstest/HistoryReport.pm
@@ -147,8 +147,9 @@ sub cache_read_previous ($) {
$jr->{'%'.$&} = $ch;
next;
}
- s{^(\w+)=}{} or die "$orig -- $_ ";
- my $k = $1;
+ # Tolerate %, which will be de-quoted by url_unquote
+ s{^([\%$url_ok_chars]+)=}{}i or die "$orig -- $_ ";
+ my $k = url_unquote($1);
$ch->{$k} = url_unquote($_);
}
push @previous, $jr;
@@ -192,7 +193,7 @@ sub cache_write_entry ($$) {
next if $k =~ m/^\%/;
$_ = $h->{$k};
next unless defined;
- printf $fh " %s=%s", $k, url_quote($_);
+ printf $fh " %s=%s", url_quote($k), url_quote($_);
}
};
$whash->($jr);
--
2.11.0
