This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Change die into warning
authorKarl Williamson <khw@cpan.org>
Wed, 25 Apr 2018 22:53:07 +0000 (16:53 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:28 +0000 (07:33 -0600)
I found an instance in compiling early Unicode releases where this
circumstance is legitimate

charclass_invlists.h
regen/mk_invlists.pl
uni_keywords.h

index 0fda226..09b445d 100644 (file)
@@ -374285,5 +374285,5 @@ static const U8 WB_table[24][24] = {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 8490f46d7ca2e6ef92751349c7885ed1dd3cc97a78daa7cbcef2cf007973e758 regen/mk_invlists.pl
+ * 47720a10807fc28ffdf7143ba5f2c199fb9acf5330e4cd6f5c2601ac2c64a634 regen/mk_invlists.pl
  * ex: set ro: */
  * ex: set ro: */
index acf119c..8d307c4 100644 (file)
@@ -2654,7 +2654,11 @@ foreach my $prop (@props) {
                 $found_nonl1 = 1;
                 last;
             }
                 $found_nonl1 = 1;
                 last;
             }
-            die "No non-Latin1 code points in $lookup_prop" unless $found_nonl1;
+            if (! $found_nonl1) {
+                warn "No non-Latin1 code points in $prop_name";
+                output_invlist($prop_name, []);
+                last;
+            }
         }
 
         switch_pound_if ($prop_name, 'PERL_IN_UTF8_C');
         }
 
         switch_pound_if ($prop_name, 'PERL_IN_UTF8_C');
index bf274ea..ec1a59c 100644 (file)
@@ -6755,6 +6755,6 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 8490f46d7ca2e6ef92751349c7885ed1dd3cc97a78daa7cbcef2cf007973e758 regen/mk_invlists.pl
+ * 47720a10807fc28ffdf7143ba5f2c199fb9acf5330e4cd6f5c2601ac2c64a634 regen/mk_invlists.pl
  * 5599d961e0e4ab42842b41d65db8a265c84e0b68e91a31d15585b7c9c8c6da53 regen/mph.pl
  * ex: set ro: */
  * 5599d961e0e4ab42842b41d65db8a265c84e0b68e91a31d15585b7c9c8c6da53 regen/mph.pl
  * ex: set ro: */