From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 4 Nov 2011 21:16:24 +0000 (-0600)
Subject: mktables: White-space only
X-Git-Tag: accepted/trunk/20130322.191538~2193^2~37
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=382cadab1777ac8374bae8eea3d5696602937a6c;p=platform%2Fupstream%2Fperl.git

mktables: White-space only

Earlier commits removed and inserted blocks.  This changes the
indentation to correspond
---

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 07a7444..550f636 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -14555,28 +14555,30 @@ sub write_all_tables() {
                 # Don't write out or make references to the $perl property
                 next if $table == $perl;
 
+                # There is a mapping stored of the various synonyms to the
+                # standardized name of the property for utf8_heavy.pl.
+                # Also, the pod file contains entries of the form:
+                # \p{alias: *}         \p{full: *}
+                # rather than show every possible combination of things.
 
-                    # There is a mapping stored of the various synonyms to the
-                    # standardized name of the property for utf8_heavy.pl.
-                    # Also, the pod file contains entries of the form:
-                    # \p{alias: *}         \p{full: *}
-                    # rather than show every possible combination of things.
+                my @property_aliases = $property->aliases;
 
-                    my @property_aliases = $property->aliases;
+                my $full_property_name = $property->full_name;
+                my $property_name = $property->name;
+                my $standard_property_name = standardize($property_name);
 
-                    my $full_property_name = $property->full_name;
-                    my $property_name = $property->name;
-                    my $standard_property_name = standardize($property_name);
 
-                    # For each synonym ...
-                    for my $i (0 .. @property_aliases - 1)  {
-                        my $alias = $property_aliases[$i];
-                        my $alias_name = $alias->name;
-                        my $alias_standard = standardize($alias_name);
+                # For each synonym ...
+                for my $i (0 .. @property_aliases - 1)  {
+                    my $alias = $property_aliases[$i];
+                    my $alias_name = $alias->name;
+                    my $alias_standard = standardize($alias_name);
 
-                        # For utf8_heavy, set the mapping of the alias to the
-                        # property
-                        if ($type != $STRING) {
+
+
+                    # For utf8_heavy, set the mapping of the alias to the
+                    # property
+                    if ($type != $STRING) {
                         if (exists ($loose_property_name_of{$alias_standard}))
                         {
                             Carp::my_carp("There already is a property with the same standard name as $alias_name: $loose_property_name_of{$alias_standard}.  Old name is retained");
@@ -14604,8 +14606,8 @@ sub write_all_tables() {
                                         '\p{' . $alias->name . ': *}',
                                         $rhs,
                                         $alias->status);
-                        }
                     }
+                }
 
 
                 # Don't write out a mapping file if not desired.