Revision 831

Date:
2021/09/09 08:52:01
Author:
ahitrov
Revision Log:
Bugs in decoder. Fallback to Data::Recursive::Encode

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Utils.pm

     
    21 21 );
    22 22 $VERSION = '0.1';
    23 23
    24 use Data::Recursive::Encode;
    24 25 use Data::Dumper;
    25 26 use locale;
    26 27 use File::Find;
    … …  
    208 209 }
    209 210
    210 211 sub encode_struct {
    211 return recode_struct_recursive($_[0], 'encode');
    212 return Data::Recursive::Encode->encode_utf8($_[0]);
    213 # return recode_struct_recursive($_[0], 'encode');
    212 214 }
    213 215
    214 216 sub decode_struct {
    215 return recode_struct_recursive($_[0], 'decode');
    217 return Data::Recursive::Encode->decode_utf8($_[0]);
    218 # return recode_struct_recursive($_[0], 'decode');
    216 219 }
    217 220
    218 221 sub recode_struct_recursive {