Commit d147a79f72 for perl

commit d147a79f7266a7c18ac288c893a9e541407c3d97
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Oct 5 05:23:46 2026 -0600

    regcharclass.pl: White-space only

    Wrap some overlong comments; move some disjointed comments

diff --git a/regcharclass.h b/regcharclass.h
index a726115e37..b4f7ad4ab3 100644
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -4003,6 +4003,6 @@
  * 94644b4e53ef4f2590ef86a261dcd22ffadf79247fcc7f31c4ebf5b19111fd25 lib/unicore/mktables
  * a0079d7556b20c2de1fdc3d492797a91b8ec8a06006f94460006185cb6380962 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * d5cfb3b96970cf2a973ec68e0d2cd4936a99030f9435d7d640daaed7e09ca702 regen/regcharclass.pl
+ * 2e1ecbbfdbe14aff766eee0bfddcbe38e3c21d06bbb97df80f39722515531d6e 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 fc49e5ecc5..d3d434e22b 100755
--- a/regen/regcharclass.pl
+++ b/regen/regcharclass.pl
@@ -100,12 +100,12 @@ to see if it is acceptable.

 =item C<what_WHATEVER_FOO(arg1, ...)>

-A variant form of each of the C<is_> macro types described above can be generated, in
-which the code point and not the length is returned by the macro.  These have
-the same caveat as L</what_len_WHATEVER_FOO(arg1, ..., len)>, plus they should
-not be used where the set contains a NULL, as 0 is returned for two different
-cases: a) the set doesn't include the input code point; b) the set does
-include it, and it is a NULL.
+A variant form of each of the C<is_> macro types described above can be
+generated, in which the code point and not the length is returned by the
+macro.  These have the same caveat as L</what_len_WHATEVER_FOO(arg1, ...,
+len)>, plus they should not be used where the set contains a NULL, as 0 is
+returned for two different cases: a) the set doesn't include the input code
+point; b) the set does include it, and it is a NULL.

 =back

@@ -1424,7 +1424,7 @@ sub render {
                                                                  \@submacros);

     # Wrap length-returning macros in a cast so that ternaries returning
-    # integer constants don't trigger -Wtautological-constant-compare
+    # integer constants don't trigger -Wtautological-constant-compare
     # when used in boolean context.
     if (($opts_ref->{ret_type} // 'len') eq 'len') {
         $rendered = "(STRLEN)( $rendered )";
@@ -1600,13 +1600,16 @@ EOF
         print $out_fh "\n", get_conditional_compile_line_start($charset);
         my @data_copy = @data;
         for (@data_copy) {
-            s/^ \s* (?: \# .* ) ? $ //x;    # squeeze out comment and blanks
+
+            # squeeze out comment and blanks
+            s/^ \s* (?: \# .* ) ? $ //x;
             next unless /\S/;
             chomp;
             if ( /^[A-Z]/ ) {
-                $doit->($charset) unless $first_time;  # This starts a new
-                                                       # definition; do the
-                                                       # previous one
+
+                # This starts a new definition; do the previous one
+                $doit->($charset) unless $first_time;
+
                 $first_time = 0;
                 ( $op, $title )= split /\s*:\s*/, $_, 2;
                 @txt= ();