Commit a0d86fc381 for perl

commit a0d86fc381b9ff99e46ccbec5755c17f1c1c991e
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Oct 5 07:08:26 2026 -0600

    regcharclass.pl: Remove unnecessary copy of array

    There is no need to copy this array.  I imagine (without looking) that
    it may have been necessary at some point.

diff --git a/regcharclass.h b/regcharclass.h
index fd481b6f23..72cd02a0b3 100644
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -4004,6 +4004,6 @@
  * 94644b4e53ef4f2590ef86a261dcd22ffadf79247fcc7f31c4ebf5b19111fd25 lib/unicore/mktables
  * a0079d7556b20c2de1fdc3d492797a91b8ec8a06006f94460006185cb6380962 lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
- * d0227bd9710cd03c3aec265a6a8255d5dae7df42ed4a3ff1fc55d1be8826fdfb regen/regcharclass.pl
+ * f5f92e7b6a14e48c9dd7999dcd0be77048a7a4755d22dd035b39665d3ec1abef 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 13f0bb906b..7fd00f2801 100755
--- a/regen/regcharclass.pl
+++ b/regen/regcharclass.pl
@@ -1603,9 +1603,8 @@ EOF
         undef @types;
         undef %mods;
         print $out_fh "\n", get_conditional_compile_line_start($charset);
-        my @data_copy = @data;
-        for (my $i = 0; $i < @data_copy; $i++) {
-            my $line = $data_copy[$i];
+        for (my $i = 0; $i < @data; $i++) {
+            my $line = $data[$i];

             # squeeze out comment and blanks
             $line =~ s/^ \s* (?: \# .* ) ? $ //x;