This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: White-space only
authorKarl Williamson <khw@cpan.org>
Sat, 19 Jul 2014 21:34:49 +0000 (15:34 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 22 Jan 2015 05:47:30 +0000 (22:47 -0700)
Indent as a result of new block in the previous commit; reformat a
comment

charclass_invlists.h
regen/mk_invlists.pl

index 033b936..63cda53 100644 (file)
@@ -50142,5 +50142,5 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
  * a17a0330e57d774343a53c019f1bc69827c2676982a1bf48e0898a76710e8877 lib/unicore/extracted/DNumType.txt
  * c2cb810a67cc5fb4a8d236b6c1bc6dd4d89733d8603881997e8aae2c816a3db1 lib/unicore/extracted/DNumValues.txt
  * 746472de66b936ac885ca6d6e68058242b4e909e3260c6317f3ec719f78f76cc lib/unicore/version
- * 5d78580583171ad62648e20a2363331a2f67c262c14f660c4914882db8a2f021 regen/mk_invlists.pl
+ * 7f22db133e540ec661afd80920047012a6125b0656cea3896dc8618b7c63cc6c regen/mk_invlists.pl
  * ex: set ro: */
index 4902f6e..615407c 100644 (file)
@@ -238,26 +238,26 @@ for my $charset (get_supported_code_pages()) {
         if (! $nonl1_only || ($invlist[0] < 256
                               && ! ($invlist[0] == 0 && $invlist[1] > 256)))
         {
-        my @full_list;
-        for (my $i = 0; $i < @invlist; $i += 2) {
-            my $upper = ($i + 1) < @invlist
-                        ? $invlist[$i+1] - 1      # In range
-                        : $Unicode::UCD::MAX_CP;  # To infinity.  You may want
-                                                # to stop much much earlier;
-                                                # going this high may expose
-                                                # perl deficiencies with very
-                                                # large numbers.
-            for my $j ($invlist[$i] .. $upper) {
-                if ($j < 256) {
-                    push @full_list, $a2n[$j];
-                }
-                else {
-                    push @full_list, $j;
+            my @full_list;
+            for (my $i = 0; $i < @invlist; $i += 2) {
+                my $upper = ($i + 1) < @invlist
+                            ? $invlist[$i+1] - 1      # In range
+
+                              # To infinity.  You may want to stop much much
+                              # earlier; going this high may expose perl
+                              # deficiencies with very large numbers.
+                            : $Unicode::UCD::MAX_CP;
+                for my $j ($invlist[$i] .. $upper) {
+                    if ($j < 256) {
+                        push @full_list, $a2n[$j];
+                    }
+                    else {
+                        push @full_list, $j;
+                    }
                 }
             }
-        }
-        @full_list = sort { $a <=> $b } @full_list;
-        @invlist = mk_invlist_from_cp_list(\@full_list);
+            @full_list = sort { $a <=> $b } @full_list;
+            @invlist = mk_invlist_from_cp_list(\@full_list);
         }
 
         if ($l1_only) {