From 96983bca53fc4d6db480d8cebdeb130353dab767 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sat, 4 Nov 2023 18:55:05 -0600
Subject: [PATCH] BlackBox dont use rare scripts

---
 cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm | 136 +++++++++++++++++++++
 1 file changed, 136 insertions(+)

diff --git a/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm b/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm
index 242a4eb117ac..4b485d01cd33 100644
--- a/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm
+++ b/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm
@@ -71,6 +71,142 @@ my $rare_blocks_re = my_qr('[\p{InIPAExtensions}\p{InSpacingModifierLetters}]',
                            "\x{250}");
 $rare_blocks_re = my_qr('[\x{0250}-\x{02FF}]', "\x{250}") unless $rare_blocks_re;
 
+#my $excluded_scripts_re = qr /(?[
+#|\p{scx=Aghb} 
+#|\p{scx=Ahom} 
+#|\p{scx=Armi} 
+#|\p{scx=Avst} 
+#|\p{scx=Bass} 
+#|\p{scx=Bhks} 
+#|\p{scx=Brah} 
+#|\p{scx=Bugi} 
+#|\p{scx=Buhd} 
+#|\p{scx=Cari} 
+#|\p{scx=Chrs} 
+#|\p{scx=Copt} 
+#|\p{scx=Cpmn} 
+#|\p{scx=Cprt} 
+#|\p{scx=Diak} 
+#|\p{scx=Dogr} 
+#|\p{scx=Dsrt} 
+#|\p{scx=Dupl} 
+#|\p{scx=Egyp} 
+#|\p{scx=Elba} 
+#|\p{scx=Elym} 
+#|\p{scx=Glag} 
+#|\p{scx=Gong} 
+#|\p{scx=Gonm} 
+#|\p{scx=Goth} 
+#|\p{scx=Gran} 
+#|\p{scx=Hano} 
+#|\p{scx=Hatr} 
+#|\p{scx=Hluw} 
+#|\p{scx=Hmng} 
+#|\p{scx=Hung} 
+#|\p{scx=Ital} 
+#|\p{scx=Kawi} 
+#|\p{scx=Khar} 
+#|\p{scx=Khoj} 
+#|\p{scx=Kits} 
+#|\p{scx=Kthi} 
+#|\p{scx=Lina} 
+#|\p{scx=Linb} 
+#|\p{scx=Lyci} 
+#|\p{scx=Lydi} 
+#|\p{scx=Maka} 
+#|\p{scx=Mahj} 
+#|\p{scx=Mani} 
+#|\p{scx=Marc} 
+#|\p{scx=Medf} 
+#|\p{scx=Mend} 
+#|\p{scx=Merc} 
+#|\p{scx=Mero} 
+#|\p{scx=Modi} 
+#|\p{scx=Mong} 
+#|\p{scx=Mroo} 
+#|\p{scx=Mult} 
+#|\p{scx=Nagm} 
+#|\p{scx=Narb} 
+#|\p{scx=Nand} 
+#|\p{scx=Nbat} 
+#|\p{scx=Nshu} 
+#|\p{scx=Ogam} 
+#|\p{scx=Orkh} 
+#|\p{scx=Osma} 
+#|\p{scx=Ougr} 
+#|\p{scx=Palm} 
+#|\p{scx=Pauc} 
+#|\p{scx=Perm} 
+#|\p{scx=Phag} 
+#|\p{scx=Phli} 
+#|\p{scx=Phlp} 
+#|\p{scx=Phnx} 
+#|\p{scx=Prti} 
+#|\p{scx=Rjng} 
+#|\p{scx=Runr} 
+#|\p{scx=Samr} 
+#|\p{scx=Sarb} 
+#|\p{scx=Sgnw} 
+#|\p{scx=Shaw} 
+#|\p{scx=Shrd} 
+#|\p{scx=Sidd} 
+#|\p{scx=Sind} 
+#|\p{scx=Sora} 
+#|\p{scx=Sogd} 
+#|\p{scx=Sogo} 
+#|\p{scx=Soyo} 
+#|\p{scx=Tagb} 
+#|\p{scx=Takr} 
+#|\p{scx=Tang} 
+#|\p{scx=Tglg} 
+#|\p{scx=Tirh} 
+#|\p{scx=Tnsa} 
+#|\p{scx=Toto} 
+#|\p{scx=Ugar} 
+#|\p{scx=Vith} 
+#|\p{scx=Wara} 
+#|\p{scx=Xpeo} 
+#|\p{scx=Xsux} 
+#|\p{scx=Yezi} 
+#|\p{scx=Zanb} 
+#])/;
+#my $limited_scripts_re = qr /(?[
+#\p{scx=Adlm} 
+#|\p{scx=Bali} 
+#|\p{scx=Bamu} 
+#|\p{scx=Batk} 
+#|\p{scx=Cakm} 
+#|\p{scx=Cans} 
+#|\p{scx=Cham} 
+#|\p{scx=Cher} 
+#|\p{scx=Hmnp} 
+#|\p{scx=Java} 
+#|\p{scx=Kali} 
+#|\p{scx=Lana} 
+#|\p{scx=Lepc} 
+#|\p{scx=Limb} 
+#|\p{scx=Lisu} 
+#|\p{scx=Mand} 
+#|\p{scx=Mtei} 
+#|\p{scx=Newa} 
+#|\p{scx=Nkoo} 
+#|\p{scx=Olck} 
+#|\p{scx=Osge} 
+#|\p{scx=Plrd} 
+#|\p{scx=Rohg} 
+#|\p{scx=Saur} 
+#|\p{scx=Sund} 
+#|\p{scx=Sylo} 
+#|\p{scx=Syrc} 
+#|\p{scx=Tale} 
+#|\p{scx=Talu} 
+#|\p{scx=Tavt} 
+#|\p{scx=Tfng} 
+#|\p{scx=Vaii} 
+#|\p{scx=Wcho} 
+#|\p{scx=Yiii} 
+#])/;
+
 my $script_run_re = eval 'no warnings "experimental::script_run";
                           qr/(*script_run: ^ .* $ )/x';
 my $latin_re = my_qr('[\p{IsLatin}\p{IsInherited}\p{IsCommon}]', "\x{100}");