diff options
| -rw-r--r-- | src/backend/utils/mb/Unicode/convutils.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/backend/utils/mb/Unicode/convutils.pm b/src/backend/utils/mb/Unicode/convutils.pm index 479bfe9289..42b4ffaaef 100644 --- a/src/backend/utils/mb/Unicode/convutils.pm +++ b/src/backend/utils/mb/Unicode/convutils.pm @@ -49,8 +49,7 @@ sub read_source print STDERR "READ ERROR at line $. in $fname: $_\n"; exit; } - my $out = {f => $fname, l => $., - code => hex($1), + my $out = {code => hex($1), ucs => hex($2), comment => $4, direction => BOTH, |