diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-04-17 14:41:39 +0200 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-04-19 05:41:19 -0600 |
| commit | a6dd039a1d2cd561a5f76c031dff15237f991c15 (patch) | |
| tree | 6d5a87746e1a31418ccc44be0c65d600af8a2090 | |
| parent | 347f96678ee8689bc3584db7910511768ab73457 (diff) | |
| download | perl-a6dd039a1d2cd561a5f76c031dff15237f991c15.tar.gz | |
regen/mph.pl - use $n instead of @$second_level
Same thing but $n is initialized one line above, so use it.
| -rw-r--r-- | regen/mph.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index 407ebd52dd..502903b80e 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -590,7 +590,7 @@ sub make_algo { $prefix ||= "MPH"; my $n= 0 + @$second_level; - my $data_size= 0 + @$second_level * 8 + length $blob; + my $data_size= $n * 8 + length $blob; my @code= "#define ${prefix}_VALt I16\n\n"; push @code, "/*\n"; |