Perl
diff --git a/‎charclass_invlists.inc
+1-1 b/‎charclass_invlists.inc
+1-1
diff --git a/‎lib/unicore/mktables
+14 b/‎lib/unicore/mktables
+14
diff --git a/‎lib/unicore/uni_keywords.pl
+1-1 b/‎lib/unicore/uni_keywords.pl
+1-1
diff --git a/‎regcharclass.h
+1-1 b/‎regcharclass.h
+1-1
diff --git a/‎regexp_constants.h
+1-1 b/‎regexp_constants.h
+1-1
diff --git a/‎uni_keywords.h
+1-1 b/‎uni_keywords.h
+1-1
@@ -436055,7 +436055,7 @@ static const U8 WB_table[23][23] = {
  * 3f4f32ed2a577344a508114527e721d7a8b633d32f38945d47fe0c743650c585 lib/unicore/extracted/DLineBreak.txt
  * 710abf2d581ac9c57f244c0834f9d9969d9781e0396adccd330eaae658ac7d6b lib/unicore/extracted/DNumType.txt
  * 6bd30f385f3baf3ab5d5308c111a81de87bea5f494ba0ba69e8ab45263b8c34d lib/unicore/extracted/DNumValues.txt
- * 9582c6075d11a1f57b806d54b9dd17063bbc66f9b19c1439e656e4dc155b13af lib/unicore/mktables
+ * 273236becd6f795425739144aded86309011c3604d5b309d3952b55065bd7f3b lib/unicore/mktables
  * 55d90fdc3f902e5c0b16b3378f9eaa36e970a1c09723c33de7d47d0370044012 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
 
@@ -15367,6 +15367,20 @@ END
                 }
             }
         }
+        elsif ($v_version ge 15.1.0 && $value eq standardize('Quotation')) {
+
+            # Unicode 15.1 splits LB=QU initial quotes and final quotes, and
+            # regular quotes
+            for my $i ($range->start .. $range->end) {
+                my $gc_val = $gc->value_of($i);
+                if ($gc_val eq 'Pi') {
+                    $perl_lb->replace_map($i, $i, "Initial_Quote");
+                }
+                elsif ($gc_val eq 'Pf') {
+                    $perl_lb->replace_map($i, $i, "Final_Quote");
+                }
+            }
+        }
     }
 
     # This property is a modification of the scx property
 
@@ -78,7 +78,7 @@
  * 3f4f32ed2a577344a508114527e721d7a8b633d32f38945d47fe0c743650c585 lib/unicore/extracted/DLineBreak.txt
  * 710abf2d581ac9c57f244c0834f9d9969d9781e0396adccd330eaae658ac7d6b lib/unicore/extracted/DNumType.txt
  * 6bd30f385f3baf3ab5d5308c111a81de87bea5f494ba0ba69e8ab45263b8c34d lib/unicore/extracted/DNumValues.txt
- * 9582c6075d11a1f57b806d54b9dd17063bbc66f9b19c1439e656e4dc155b13af lib/unicore/mktables
+ * 273236becd6f795425739144aded86309011c3604d5b309d3952b55065bd7f3b lib/unicore/mktables
  * 55d90fdc3f902e5c0b16b3378f9eaa36e970a1c09723c33de7d47d0370044012 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
Original file line number	Diff line number	Diff line change
`@@ -15367,6 +15367,20 @@ END`
`15367`	`15367`	`}`
`15368`	`15368`	`}`
`15369`	`15369`	`}`
	`15370`	`+ elsif ($v_version ge 15.1.0 && $value eq standardize('Quotation')) {`
	`15371`	`+`
	`15372`	`+ # Unicode 15.1 splits LB=QU initial quotes and final quotes, and`
	`15373`	`+ # regular quotes`
	`15374`	`+ for my $i ($range->start .. $range->end) {`
	`15375`	`+ my $gc_val = $gc->value_of($i);`
	`15376`	`+ if ($gc_val eq 'Pi') {`
	`15377`	`+ $perl_lb->replace_map($i, $i, "Initial_Quote");`
	`15378`	`+ }`
	`15379`	`+ elsif ($gc_val eq 'Pf') {`
	`15380`	`+ $perl_lb->replace_map($i, $i, "Final_Quote");`
	`15381`	`+ }`
	`15382`	`+ }`
	`15383`	`+ }`
`15370`	`15384`	`}`
`15371`	`15385`
`15372`	`15386`	`# This property is a modification of the scx property`