diff options
author | Yves Orton <demerphq@gmail.com> | 2022-04-17 14:07:01 +0200 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-04-19 05:41:19 -0600 |
commit | 347f96678ee8689bc3584db7910511768ab73457 (patch) | |
tree | e403129a73b96abadcbd74dc671dfd37d73b3121 | |
parent | 0f5e3be8b963defe8c416510d62f4d9e7e9f845c (diff) | |
download | perl-347f96678ee8689bc3584db7910511768ab73457.tar.gz |
regen/mph.pl - remove bogus defaulting for undef vars
This was some kind of thinko and never made sense, prefix
and suffix should never be undefined.
-rw-r--r-- | regen/mph.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index 4caf84106a..407ebd52dd 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -559,8 +559,8 @@ sub build_array_of_struct { ##! my @u16= ( $row->{seed2}, - index($blob, $row->{prefix} // 0), - index($blob, $row->{suffix} // 0), + index($blob, $row->{prefix}), + index($blob, $row->{suffix}), ); $_ > U16_MAX and die "panic: value exceeds range of U16" for @u16; |