Remove duplicate assignment.

Harmless, but clearly wrong.

Kyotaro Horiguchi

diff --git a/src/backend/utils/mb/Unicode/convutils.pm b/src/backend/utils/mb/Unicode/convutils.pm
index 479bfe92896806559ecafb472f13fd1bc88117ee..42b4ffaaef97a374e5a1569365a64e137e66c668 100644 (file)
--- 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,