In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e972d31587e248817bac11667cbd2f6014c03454?hp=bfa148846b45a72a2fce2b0d1bbd85743ed3d081>
- Log ----------------------------------------------------------------- commit e972d31587e248817bac11667cbd2f6014c03454 Author: Nicholas Clark <[email protected]> Date: Sun Jun 12 11:46:18 2011 +0100 In regen/mg_vtable.pl, move $longest inside the only block that uses it. ----------------------------------------------------------------------- Summary of changes: 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 3d24211..bea64ed 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; -- Perl5 Master Repository
