Fixes to UTF-8 handling in file paths

This commit is contained in:
Alessandro Ranellucci 2014-11-22 21:55:45 +01:00
parent 049859e5b1
commit 989ec5cf4d
5 changed files with 20 additions and 8 deletions

View file

@ -234,6 +234,11 @@ sub encode_path {
return encode('locale_fs', $filename);
}
sub decode_path {
my ($filename) = @_;
return decode('locale_fs', $filename);
}
sub open {
my ($fh, $mode, $filename) = @_;
return CORE::open $$fh, $mode, encode_path($filename);