diff options
Diffstat (limited to 'src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl')
| -rwxr-xr-x | src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl b/src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl index adfdca24f71..f9ff2bd3d2a 100755 --- a/src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl +++ b/src/backend/utils/mb/Unicode/UCS_to_EUC_CN.pl @@ -33,7 +33,7 @@ while (<$in>) next if (!m/<a u="([0-9A-F]+)" b="([0-9A-F ]+)"/); my ($u, $c) = ($1, $2); $c =~ s/ //g; - my $ucs = hex($u); + my $ucs = hex($u); my $code = hex($c); # The GB-18030 character set, which we use as the source, contains @@ -73,11 +73,11 @@ while (<$in>) push @mapping, { - ucs => $ucs, - code => $code, + ucs => $ucs, + code => $code, direction => BOTH, - f => $in_file, - l => $. + f => $in_file, + l => $. }; } close($in); |