summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/_query.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_query.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/_query.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/_query.pm b/Master/tlpkg/tlperl/lib/URI/_query.pm
index 0c6aa285e42..a6038a3717a 100644
--- a/Master/tlpkg/tlperl/lib/URI/_query.pm
+++ b/Master/tlpkg/tlperl/lib/URI/_query.pm
@@ -14,6 +14,7 @@ sub query
$$self = $1;
if (defined $q) {
$q =~ s/([^$URI::uric])/ URI::Escape::escape_char($1)/ego;
+ utf8::downgrade($q);
$$self .= "?$q";
}
$$self .= $3;