diff options
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mg_vtable.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 3d242116a9..bea64ed1cd 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -155,11 +155,6 @@ print $vt <<'EOH'; EOH -my $longest = 0; -foreach (keys %mg) { - $longest = length $_ if length $_ > $longest; -} - # Of course, it would be *much* easier if we could output this table directly # here and now. However, for our sins, we try to support EBCDIC, which wouldn't # be *so* bad, except that there are (at least) 3 EBCDIC charset variants, and @@ -170,6 +165,11 @@ foreach (keys %mg) { # predictable) { + my $longest = 0; + foreach (keys %mg) { + $longest = length $_ if length $_ > $longest; + } + my $longest_p1 = $longest + 1; my %mg_order; |