diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-26 09:00:37 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:06 -0600 |
| commit | 76d3994ce8254dddded37991aa43b70a4410c626 (patch) | |
| tree | 5a66558beaa984a545686d786731648a51555c03 /regen | |
| parent | af921c2d043eefd47eeac06a3011ae991d53f983 (diff) | |
| download | perl-76d3994ce8254dddded37991aa43b70a4410c626.tar.gz | |
mk_invlists.pl: Add error check and die if fails
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 1dfb5d538e..65d6995285 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -27,6 +27,10 @@ sub output_invlist ($$) { my $name = shift; my $invlist = shift; # Reference to inversion list array + die "No inversion list for $name" unless defined $invlist + && ref $invlist eq 'ARRAY' + && @$invlist; + # Output the inversion list $invlist using the name $name for it. # It is output in the exact internal form for inversion lists. |