diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_query.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/_query.pm | 1 |
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; |