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
[perl5.git] / regen / mk_invlists.pl
index acf119c..8d307c4 100644 (file)
@@ -2654,7 +2654,11 @@ foreach my $prop (@props) {
                 $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');