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.

[book]

$_ is undef because there's no loop option (-n or -p) in the command-line shown.

[jkeenan]

$_ is undef because there's no loop option (-n or -p) in the command-line shown.

$ echo 八|perl -p -CS -Mutf8 -wle 'use Unicode::UCD qw(num); print num($_);'
8
八

$ echo 八|perl -n -CS -Mutf8 -wle 'use Unicode::UCD qw(num); print num($_);'
8