This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: White space only
authorKarl Williamson <khw@cpan.org>
Tue, 17 Jun 2014 19:11:46 +0000 (13:11 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 18 Jun 2014 02:21:39 +0000 (20:21 -0600)
Indent inside a newly-formed block

lib/locale.t

index 7c97db0..2d668c4 100644 (file)
@@ -1846,18 +1846,18 @@ foreach my $Locale (@Locale) {
             $ok14 = 1;
             $ok14_5 = 1;
             if (setlocale(&POSIX::LC_MESSAGES, $Locale)) {
-            foreach my $err (keys %!) {
-                use Errno;
-                $! = eval "&Errno::$err";   # Convert to strerror() output
-                my $strerror = "$!";
-                if ("$strerror" =~ /\P{ASCII}/) {
-                    $ok14 = utf8::is_utf8($strerror);
-                    no locale;
-                    $ok14_5 = "$!" !~ /\P{ASCII}/;
-                    last;
+                foreach my $err (keys %!) {
+                    use Errno;
+                    $! = eval "&Errno::$err";   # Convert to strerror() output
+                    my $strerror = "$!";
+                    if ("$strerror" =~ /\P{ASCII}/) {
+                        $ok14 = utf8::is_utf8($strerror);
+                        no locale;
+                        $ok14_5 = "$!" !~ /\P{ASCII}/;
+                        last;
+                    }
                 }
             }
-            }
 
             # Similarly, we verify that a non-ASCII radix is in UTF-8.  This
             # also catches if there is a disparity between sprintf and