IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge Dawid Wróbel's uft-8 obfuscation fix into maint.

Browse Source
This commit is contained in:
John Ralls 2019-06-28 11:49:57 -07:00
commit 0543a29012
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
util/obfuscate.pl
View File

@ -6,6 +6,8 @@
use strict;
use warnings;
use utf8;
use Encode;
use Digest::MD5 qw(md5_hex);
use XML::DOM; # on ubuntu this requires 'libxml-dom-perl'
@ -32,7 +34,8 @@ close DICT;
sub get_a_name {
my $scalar = shift;
return '' if !$scalar;
my $index = hex substr(md5_hex($scalar),-$hex_digits);
my $scalar_encoded = utf8::is_utf8($scalar) ? Encode::encode_utf8($scalar) : $scalar;
my $index = hex substr(md5_hex($scalar_encoded),-$hex_digits);
my $result = $dict[$index];
chop $result;
return $result;