From e6c759056e5550e014ffbb06352b0b969ae67d1f Mon Sep 17 00:00:00 2001
From: Mohamed Abd Elhady Ali <mohamed_abdelhady96@hotmail.com>
Date: Mon, 1 Apr 2019 02:04:02 +0200
Subject: [PATCH] Decode Special Characters in Path

fixes umlauts in path of file which caused errors when reading the file
---
 xs/t/23_3mf.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xs/t/23_3mf.t b/xs/t/23_3mf.t
index 70e383d95..5eeb1372b 100644
--- a/xs/t/23_3mf.t
+++ b/xs/t/23_3mf.t
@@ -9,6 +9,8 @@ use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
 use Cwd qw(abs_path);
 use File::Basename qw(dirname);
 
+require Encode;
+
 # Removes '\n' and '\r\n' from a string.
 sub clean {
     my $text = shift;
@@ -17,7 +19,7 @@ sub clean {
     return $text;
 }
 
-my $current_path = abs_path($0);
+my $current_path = Encode::decode_utf8(abs_path($0));
 my $expected_content_types = "<?xml version=\"1.0\" encoding=\"UTF-8\"?> \n"
     ."<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\">\n"
     ."<Default Extension=\"rels\" ContentType=\"application/vnd.openxmlformats-package.relationships+xml\"/>\n"