Use of uninitialized value $length in numeric eq (==) in UCD.pm

[jidanni]

perl 5.40. More checking is needed here to avoid showing the user an unintended internal error:

$ echo 八|perl -CS -Mutf8 -wle 'use Unicode::UCD qw(num); print num($_);'
Use of uninitialized value $length in numeric eq (==) at /usr/share/perl/5.40/Unicode/UCD.pm line 2518.

[jkeenan]

perl 5.40. More checking is needed here to avoid showing the user an unintended internal error:

$ echo 八|perl -CS -Mutf8 -wle 'use Unicode::UCD qw(num); print num($_);'
Use of uninitialized value $length in numeric eq (==) at /usr/share/perl/5.40/Unicode/UCD.pm line 2518.

@khwilliamson could you take a look at this? Thanks.