UCD.pm: Add check for parameter type

This needs to be a scalar reference; I got burned with it not doing the
right thing when it wasn't such a reference.

Thanks to Tony Cook for contributing a better solution than mine.

Author: khwilliamson

charclass_invlists.inc

@@ -456662,7 +456662,7 @@ static const U8 WB_dfa_table[] = {
 #endif	/* defined(PERL_IN_REGEXEC_C) */
 
 /* Generated from:
- * 6cbf3f0fc04bbb22420eb9689126b5030bd714ad06397d0904702714feabe28e lib/Unicode/UCD.pm
+ * 198105a1b3637a4bc7240628bae2f65f6d0c31df2cee4f0242c2561421ea2e75 lib/Unicode/UCD.pm
  * 764f420cedfc8b43d9fec251c957a5d55fc45d40f6573f162990ed1dce7e36e0 lib/unicore/ArabicShaping.txt
  * b8f32554c6f658821fb0ee742d21c5b1f2086b9bf13071fed04894b022f93d67 lib/unicore/BidiBrackets.txt
  * d7afdadd1bbd66f5a663ac0e8f7958f18fd9491fc0bc59ec5877cb82db71db7d lib/unicore/BidiMirroring.txt

lib/Unicode/UCD.pm

@@ -5,7 +5,7 @@ use warnings;
 no warnings 'surrogate';    # surrogates can be inputs to this
 use charnames ();
 
-our $VERSION = '0.82';
+our $VERSION = '0.83';
 
 sub DEBUG () { 0 }
 $|=1 if DEBUG;
@@ -2534,10 +2534,15 @@ change these into digits, and then call C<num> on the result.
 sub num ($;$) {
     my ($string, $retlen_ref) = @_;
 
+    if (defined $retlen_ref) {
+        eval { $$retlen_ref = 0; 1 }    # Initialize to assume failure
+            or croak __PACKAGE__,
+                     "::num: second parameter must be a scalar reference";
+    }
+                                                    
     use feature 'unicode_strings';
 
     _numeric unless %NUMERIC;
-    $$retlen_ref = 0 if $retlen_ref;    # Assume will fail
 
     my $length = length $string;
     return if $length == 0;

lib/Unicode/UCD.t

@@ -834,6 +834,16 @@ is($ret_len, 5, "... and the returned length is 5");
 ok(! defined num("98765\N{FULLWIDTH DIGIT FOUR}", \$ret_len),
    'Verify num("98765\N{FULLWIDTH DIGIT FOUR}") isnt defined');
 is($ret_len, 5, "... but the returned length is 5");
+{
+    local $@;
+    my @dummy = 5;
+    eval { num("98765", \@dummy); };
+    like($@, qr/::num: second parameter must be a scalar reference/,
+        "num: Incorrect type for second parameter; must be scalar ref");
+    my $x=\1;
+    eval { num("98765", \$x); };
+    is($@, "", 'num: Views $x=\1 as a scalar ref');
+}
 my $tai_lue_2;
 if ($v_unicode_version ge v4.1.0) {
     my $tai_lue_1 = charnames::string_vianame("NEW TAI LUE DIGIT ONE");

lib/unicore/uni_keywords.pl

@@ -29,7 +29,7 @@
 #define MAX_FOLD_FROMS 3
 
 /* Generated from:
- * 6cbf3f0fc04bbb22420eb9689126b5030bd714ad06397d0904702714feabe28e lib/Unicode/UCD.pm
+ * 198105a1b3637a4bc7240628bae2f65f6d0c31df2cee4f0242c2561421ea2e75 lib/Unicode/UCD.pm
  * 764f420cedfc8b43d9fec251c957a5d55fc45d40f6573f162990ed1dce7e36e0 lib/unicore/ArabicShaping.txt
  * b8f32554c6f658821fb0ee742d21c5b1f2086b9bf13071fed04894b022f93d67 lib/unicore/BidiBrackets.txt
  * d7afdadd1bbd66f5a663ac0e8f7958f18fd9491fc0bc59ec5877cb82db71db7d lib/unicore/BidiMirroring.txt