diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-20 16:22:44 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-05-22 08:24:22 -0600 |
| commit | ad89228c5b795cc268ecf73cf29290f8bc70e979 (patch) | |
| tree | 52b055280e17033a4e2e54bef6b496c0044be4dd /regen | |
| parent | 8d72545184b8ad7a42bd5d313456ed38d0390e5a (diff) | |
| download | perl-ad89228c5b795cc268ecf73cf29290f8bc70e979.tar.gz | |
regen/mk_invlists.pl: Fail if inversion list not found
This is instead of silently returning nothing.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 64e3d435c1..1dfb5d538e 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -122,6 +122,7 @@ for my $prop (qw( L1PosixWord PosixXDigit XPosixXDigit + _Perl_Non_Final_Folds ) ) { @@ -141,6 +142,7 @@ for my $prop (qw( my $lookup_prop = $prop; $lookup_prop =~ s/^L1Posix/XPosix/ or $lookup_prop =~ s/^L1//; my @invlist = prop_invlist($lookup_prop); + die "Could not find inversion list for '$lookup_prop'" unless @invlist; if ($lookup_prop ne $prop) { for my $i (0 .. @invlist - 1 - 1) { |