This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: white space-only change
authorKarl Williamson <public@khwilliamson.com>
Tue, 4 Jan 2011 23:59:45 +0000 (16:59 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 5 Jan 2011 00:04:43 +0000 (17:04 -0700)
A previous commit removed the 'if' around this code, so can outdent it.

lib/unicore/mktables

index 081314d..d97b12b 100644 (file)
@@ -9346,19 +9346,19 @@ END
 
                 # If the map begins with a special command to us (enclosed in
                 # delimiters), extract the command(s).
 
                 # If the map begins with a special command to us (enclosed in
                 # delimiters), extract the command(s).
-                    while ($map =~ s/ ^ $CMD_DELIM (.*?) $CMD_DELIM //x) {
-                        my $command = $1;
-                        if ($command =~  / ^ $REPLACE_CMD= (.*) /x) {
-                            $replace = $1;
-                        }
-                        elsif ($command =~  / ^ $MAP_TYPE_CMD= (.*) /x) {
-                            $map_type = $1;
-                        }
-                        else {
-                           $file->carp_bad_line("Unknown command line: '$1'");
-                           next LINE;
-                        }
+                while ($map =~ s/ ^ $CMD_DELIM (.*?) $CMD_DELIM //x) {
+                    my $command = $1;
+                    if ($command =~  / ^ $REPLACE_CMD= (.*) /x) {
+                        $replace = $1;
                     }
                     }
+                    elsif ($command =~  / ^ $MAP_TYPE_CMD= (.*) /x) {
+                        $map_type = $1;
+                    }
+                    else {
+                        $file->carp_bad_line("Unknown command line: '$1'");
+                        next LINE;
+                    }
+                }
             }
 
             if ($default_map eq $CODE_POINT && $map =~ / ^ $code_point_re $/x)
             }
 
             if ($default_map eq $CODE_POINT && $map =~ / ^ $code_point_re $/x)