diff options
author | Karl Williamson <khw@cpan.org> | 2014-05-05 18:59:35 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-05-31 11:35:17 -0600 |
commit | 91e83b736b8e78a0acc723337e6e9a57ac548ef5 (patch) | |
tree | e0bde0cf99b602b8f398602433fae6dbd6c940bc /regen | |
parent | a1b2a50fb33671d2474d83dc6a3d62dbcb99965b (diff) | |
download | perl-91e83b736b8e78a0acc723337e6e9a57ac548ef5.tar.gz |
regen/regcharclass.pl: Comment, white-space only
This commit indents code to properly align with the new block introduced
by the previous commit, and adds a comma to a comment
Diffstat (limited to 'regen')
-rwxr-xr-x | regen/regcharclass.pl | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index 0c1993dcbe..187b91d611 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -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(); } |