This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/regcharclass.pl: White-space only
authorKarl Williamson <public@khwilliamson.com>
Wed, 5 Sep 2012 21:14:59 +0000 (15:14 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 14 Sep 2012 03:14:04 +0000 (21:14 -0600)
Indent a newly-formed block

regen/regcharclass.pl

index c7fda95..e4133fd 100755 (executable)
@@ -694,13 +694,13 @@ sub _cond_as_str {
       if $combine;
 
     if ($is_cp_ret) {
-    @ranges= map {
-        ref $_
-          ? sprintf(
-            "( $self->{val_fmt} <= $test && $test <= $self->{val_fmt} )",
-            @$_ )
-          : sprintf( "$self->{val_fmt} == $test", $_ );
-    } @ranges;
+        @ranges= map {
+            ref $_
+            ? sprintf(
+                "( $self->{val_fmt} <= $test && $test <= $self->{val_fmt} )",
+                @$_ )
+            : sprintf( "$self->{val_fmt} == $test", $_ );
+        } @ranges;
     }
     else {
         # If the input set has certain characteristics, we can optimize tests