This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/regcharclass.pl: Comment, white-space only
authorKarl Williamson <khw@cpan.org>
Tue, 6 May 2014 00:59:35 +0000 (18:59 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 31 May 2014 17:35:17 +0000 (11:35 -0600)
This commit indents code to properly align with the new block introduced
by the previous commit, and adds a comma to a comment

regen/regcharclass.pl

index 0c1993d..187b91d 100755 (executable)
@@ -1288,7 +1288,7 @@ sub render {
 #
 # It is also illegal to do a non-safe macro on a pattern with multi-codepoint
 # sequences in it, as even if it is known to be well-formed, we need to not
-# run off the end of the buffer when say the buffer ends with the first two
+# run off the end of the buffer when, say, the buffer ends with the first two
 # characters, but three are looked at by the macro.
 #
 # returns the macro.
@@ -1415,24 +1415,26 @@ 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
-        next unless /\S/;
-        chomp;
-        if ( /^[A-Z]/ ) {
-            $doit->($charset) unless $first_time;  # This starts a new definition; do the previous one
-            $first_time = 0;
-            ( $op, $title )= split /\s*:\s*/, $_, 2;
-            @txt= ();
-        } elsif ( s/^=>// ) {
-            my ( $type, $modifier )= split /:/, $_;
-            @types= split ' ', $type;
-            undef %mods;
-            map { $mods{$_} = 1 } split ' ',  $modifier;
-        } else {
-            push @txt, "$_";
+            s/^ \s* (?: \# .* ) ? $ //x;    # squeeze out comment and blanks
+            next unless /\S/;
+            chomp;
+            if ( /^[A-Z]/ ) {
+                $doit->($charset) unless $first_time;  # This starts a new
+                                                       # definition; do the
+                                                       # previous one
+                $first_time = 0;
+                ( $op, $title )= split /\s*:\s*/, $_, 2;
+                @txt= ();
+            } elsif ( s/^=>// ) {
+                my ( $type, $modifier )= split /:/, $_;
+                @types= split ' ', $type;
+                undef %mods;
+                map { $mods{$_} = 1 } split ' ',  $modifier;
+            } else {
+                push @txt, "$_";
+            }
         }
-    }
-    $doit->($charset);
+        $doit->($charset);
         print $out_fh get_conditional_compile_line_end();
     }