[PATCH/RFC] Gitweb: Convert UTF-8 encoded file names
- From
- Michael Wagner <accounts@mwagner.org>
- Date
- May 14, 2014, 18:41 UTC
- Message-ID
- <20140514184145.GA25699@localhost.localdomain>
Perl has an internal encoding used to store text strings. Currently, trying to view files with UTF-8 encoded names results in an error (either "404 - Cannot find file" [blob_plain] or "XML Parsing Error" [blob]). Converting these UTF-8 encoded file names into Perl's internal format resolves these errors.
Signed-off-by: Michael Wagner <accounts@mwagner.org> --- gitweb/gitweb.perl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl index a9f57d6..6046977 100755 --- a/gitweb/gitweb.perl +++ b/gitweb/gitweb.perl @@ -1056,7 +1056,7 @@ sub evaluate_and_validate_params { } } - our $file_name = $input_params{'file_name'}; + our $file_name = decode("utf-8", $input_params{'file_name'}); if (defined $file_name) { if (!is_valid_pathname($file_name)) { die_error(400, "Invalid file parameter");
-- 1.9.0