From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 5 Nov 2011 16:52:45 +0000 (-0600)
Subject: utf8_heavy.pl: white-space only
X-Git-Tag: accepted/trunk/20130322.191538~2193^2~18
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=010c8e19c2f0fd992a14779da9537d6867caf46f;p=platform%2Fupstream%2Fperl.git

utf8_heavy.pl: white-space only

Indenting to reflect being in a new block
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 0bb1cdd..2f34b85 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -424,11 +424,11 @@ sub _loose_name ($) {
                 ##
 
                 if ($minbits != 1) {    # Only check if caller wants non-binary
-                if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) {
-                    $file = "$unicore_dir/To/$1.pl";
-                    ## would like to test to see if $file actually exists....
-                    last GETFILE;
-                }
+                    if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) {
+                        $file = "$unicore_dir/To/$1.pl";
+                        ## would like to test to see if $file actually exists....
+                        last GETFILE;
+                    }
                 }
 
                 ##