ADDED: Support for Chinese file names in msys2 environment.

The Perl package that comes with MSYS2 calls the Windows narrow character API (ANSI API).
This API does not recognize UTF8, but uses the system default code page.
(On Chinese Windows this is CP936/GBK).
Therefore, the Chinese text in the file name is passed in in the CP936
parameter format, and an error will occur when decoding it as UTF8.

In the Chinese environment of msys2, When comparing whether a directory exists,
we can only use the cp936 format for comparison, using utf8 will be ineffective.

Author: qindapao

lib/App/Asciio/Actions/File.pm

@@ -1,11 +1,27 @@
 
 package App::Asciio::Actions::File ;
 use utf8;
-use Encode;
+use Encode qw(decode encode FB_CROAK) ;
+
+use File::Basename ;
 
 #----------------------------------------------------------------------------------------------
 
-use File::Basename ;
+sub normalize_file_name
+{
+my ($file_name) = @_;
+return undef unless defined $file_name ;
+
+my $normalized ;
+
+# try UTF-8 decoding
+eval { $normalized = decode('UTF-8', $file_name, FB_CROAK) ; 1 ; } and return $normalized ;
+
+# try CP936/GBK decoding
+eval { $normalized = decode('cp936', $file_name) ; 1 ; } and return $normalized ;
+
+return $file_name ;
+}
 
 #----------------------------------------------------------------------------------------------
 
@@ -93,7 +109,8 @@ return $file_name ;
 sub open
 {
 my ($self, $file_name) = @_ ;
-$file_name = decode('utf-8', $file_name);
+
+$file_name = normalize_file_name($file_name);
 
 my $user_answer = '' ;
 

lib/App/Asciio/Io.pm

@@ -12,6 +12,7 @@ use Data::TreeDumper ;
 use File::Slurper qw(read_text write_text read_binary write_binary) ;
 use Readonly ;
 use Compress::Bzip2 qw(:all :utilities :gzip) ;
+use Encode qw(encode);
 
 use Sereal qw(
     get_sereal_decoder
@@ -24,6 +25,7 @@ use Sereal qw(
 
 use Sereal::Encoder qw(SRL_SNAPPY SRL_ZLIB SRL_ZSTD) ;
 
+
 #-----------------------------------------------------------------------------
 
 sub load_file
@@ -62,7 +64,7 @@ if
 	}
 else
 	{
-	if(-e $file_name && -s $file_name)
+	if(file_exists($file_name))
 		{
 		my $header_diagram  = read_binary($file_name) ;
 
@@ -369,4 +371,21 @@ return $decoder->decode(decompress($diagram)) ;
 
 #-----------------------------------------------------------------------------
 
+sub file_exists
+{
+my ($path) = @_ ;
+return 0 unless defined $path ;
+
+# try the UTF-8 version 
+return 1 if -e $path && -s $path ;
+
+# try with CP936 encoded byte version as Windows Chinese API only recognizes GBK sequences
+my $gbk = eval { encode('cp936', $path) } ;
+return 1 if defined $gbk && -e $gbk && -s $gbk ;
+
+return 0 ;
+}
+
+#-----------------------------------------------------------------------------
+
 1 ;