This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/regcharclass_multi_char_folds.pl: White space, comment only
authorKarl Williamson <khw@cpan.org>
Fri, 27 Mar 2020 03:01:50 +0000 (21:01 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 16 Oct 2020 13:01:41 +0000 (07:01 -0600)
Outdent and remove lines from changes in the previous commit.

regcharclass.h
regen/regcharclass_multi_char_folds.pl

index 8e5311a..0ac044d 100644 (file)
  * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version
  * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl
  * e44d836c4a344d535e81585842da1e85bbc24f2f67f4f3e7e3ec32b16262f856 regen/regcharclass.pl
- * 830295a68856e7c31bea527a47b780011700e9a362494bf34a000c3d81fc9694 regen/regcharclass_multi_char_folds.pl
+ * 8e2fbe009254587ec791f6d5443a61f609de3796b12137dea197cd6f68112114 regen/regcharclass_multi_char_folds.pl
  * ex: set ro: */
index ce8e8fe..8cf9837 100644 (file)
@@ -111,25 +111,24 @@ sub multi_char_folds ($$) {
         # Skip if something else already has this fold
         next if grep { $_ eq $fold } @output_folds;
 
-
-            # If the fold is to a cased letter, replace the entry with an
-            # array which also includes its upper case.
-            my $this_fold_ref = \@folds;
-            for my $j (0 .. @$this_fold_ref - 1) {
-                my $this_ord = $this_fold_ref->[$j];
-                undef $this_fold_ref->[$j];
-
-                if ($this_ord < 256 && chr($this_ord) =~ /\p{Cased}/) {
-                    my $uc = ord(uc(chr($this_ord)));
-                    @{$this_fold_ref->[$j]} = ( $this_ord, $uc);
-                }
-                else {
-                    @{$this_fold_ref->[$j]} = ( $this_ord );
-                }
+        # If the fold is to a cased letter, replace the entry with an
+        # array which also includes its upper case.
+        my $this_fold_ref = \@folds;
+        for my $j (0 .. @$this_fold_ref - 1) {
+            my $this_ord = $this_fold_ref->[$j];
+            undef $this_fold_ref->[$j];
+            
+            if ($this_ord < 256 && chr($this_ord) =~ /\p{Cased}/) {
+                my $uc = ord(uc(chr($this_ord)));
+                @{$this_fold_ref->[$j]} = ( $this_ord, $uc);
+            }
+            else {  # Otherwise, just itself. (gen_combinations() needs a ref)
+                @{$this_fold_ref->[$j]} = ( $this_ord );
             }
+        }
 
-            # Then generate all combinations of upper/lower case of the fold.
-            push @output_folds, gen_combinations($this_fold_ref);
+        # Then generate all combinations of upper/lower case of the fold.
+        push @output_folds, gen_combinations($this_fold_ref);
 
     }