This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unicode::UCD: Remove dead code
authorKarl Williamson <khw@cpan.org>
Sun, 21 Jun 2015 00:01:14 +0000 (18:01 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 29 Jul 2015 04:15:52 +0000 (22:15 -0600)
Nothing should get executed after a croak.

charclass_invlists.h
lib/Unicode/UCD.pm
regcharclass.h

index 3390fbd..e08c668 100644 (file)
@@ -99479,7 +99479,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
 #endif /* EBCDIC POSIX-BC */
 
 /* Generated from:
- * 083180df694deb1fc173361406c1a75619fb8376403db3a76dc585c1e3951eca lib/Unicode/UCD.pm
+ * b32261c9bf79e5e25de72f2af500acf5dfa262eb974f43af2a1d4b53e13b248c lib/Unicode/UCD.pm
  * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
  * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
  * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt
index 06fbfd1..bbf87e4 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 no warnings 'surrogate';    # surrogates can be inputs to this
 use charnames ();
 
-our $VERSION = '0.61';
+our $VERSION = '0.62';
 
 require Exporter;
 
@@ -775,7 +775,6 @@ sub charprop ($$) {
     }
     else {
         croak __PACKAGE__, "::charprop: Internal error: unknown format '$format'.  Please perlbug this";
-        return undef;
     }
 }
 
index 448fa8d..32a2b4b 100644 (file)
 #endif /* H_REGCHARCLASS */
 
 /* Generated from:
- * 083180df694deb1fc173361406c1a75619fb8376403db3a76dc585c1e3951eca lib/Unicode/UCD.pm
+ * b32261c9bf79e5e25de72f2af500acf5dfa262eb974f43af2a1d4b53e13b248c lib/Unicode/UCD.pm
  * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
  * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
  * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt