Commit c8f561f034 for perl

commit c8f561f0342a7cdaf5d54e004c49c9c73de5725a
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Oct 5 05:10:36 2026 -0600

    regcharclass.pl: Extract pattern into a variable

    This is in preparation for it to be used in more than one place

diff --git a/regcharclass.h b/regcharclass.h
index a0ea4a680e..a726115e37 100644
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -4003,6 +4003,6 @@
  * 94644b4e53ef4f2590ef86a261dcd22ffadf79247fcc7f31c4ebf5b19111fd25 lib/unicore/mktables
  * a0079d7556b20c2de1fdc3d492797a91b8ec8a06006f94460006185cb6380962 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * cad98ca9e7be21f5f2a127f4f6304302e3ea1de98295124986eabd91ab2e9643 regen/regcharclass.pl
+ * d5cfb3b96970cf2a973ec68e0d2cd4936a99030f9435d7d640daaed7e09ca702 regen/regcharclass.pl
  * 1ce43daf54162d0a267412453ce2a613f60f3a7631365775cc52d34213251a83 regen/regcharclass_multi_char_folds.pl
  * ex: set ro ft=c: */
diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl
index 6ed4882549..fc49e5ecc5 100755
--- a/regen/regcharclass.pl
+++ b/regen/regcharclass.pl
@@ -1588,6 +1588,7 @@ EOF
         }
     };

+    my $definition_begin_re = qr/^=>/;
     my @data = <DATA>;
     foreach my $charset (get_supported_code_pages()) {
         my $first_time = 1;
@@ -1609,7 +1610,7 @@ EOF
                 $first_time = 0;
                 ( $op, $title )= split /\s*:\s*/, $_, 2;
                 @txt= ();
-            } elsif ( s/^=>// ) {
+            } elsif ( s/$definition_begin_re// ) {
                 my ( $type, $modifier )= split /:/, $_;
                 @types= split ' ', $type;
                 undef %mods;