Commit c1d50881ae for perl

commit c1d50881ae1c89e62e629278b69c6550c508e2c9
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Oct 5 05:48:15 2026 -0600

    regcharclass.pl: Create a substring variable

    This substring will want to be used separately from the full string by a
    later commit

diff --git a/regcharclass.h b/regcharclass.h
index 732996dde3..fd481b6f23 100644
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -4004,6 +4004,6 @@
  * 94644b4e53ef4f2590ef86a261dcd22ffadf79247fcc7f31c4ebf5b19111fd25 lib/unicore/mktables
  * a0079d7556b20c2de1fdc3d492797a91b8ec8a06006f94460006185cb6380962 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * 6dfcb4eae24b62240690132fd32e58957756db269d32053b7bc9330304ff1db2 regen/regcharclass.pl
+ * d0227bd9710cd03c3aec265a6a8255d5dae7df42ed4a3ff1fc55d1be8826fdfb 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 be6b88c0f2..13f0bb906b 100755
--- a/regen/regcharclass.pl
+++ b/regen/regcharclass.pl
@@ -1497,7 +1497,8 @@ sub make_macro {
     $ext .= "_no_length_checks" if $opts{no_length_checks};
     $ext .= "_backwards" if $opts{backwards};
     my $argstr= join ",", @args;
-    my $def_fmt="$pfx$self->{op}$ext%s($argstr)";
+    my $macro = "$pfx$self->{op}$ext";
+    my $def_fmt="$macro%s($argstr)";
     my $optree= $self->$method( %opts, type => $type, ret_type => $ret_type );
     return $self->render( $optree, ($type =~ /^cp/) ? 1 : 0, \%opts, $def_fmt );
 }