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>
Mon, 9 Mar 2015 04:29:21 +0000 (22:29 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 9 Mar 2015 15:37:08 +0000 (09:37 -0600)
Indent inside new block formed in the previous commit.

lib/locale.t

index 9238290..3f37457 100644 (file)
@@ -1907,14 +1907,14 @@ foreach my $Locale (@Locale) {
 
     $ok21 = 1;
     if (locales_enabled('LC_MESSAGES')) {
-    foreach my $err (keys %!) {
-        no locale;
-        use Errno;
-        $! = eval "&Errno::$err";   # Convert to strerror() output
-        my $strerror = "$!";
-        if ("$strerror" =~ /\P{ASCII}/) {
-            $ok21 = 0;
-            last;
+        foreach my $err (keys %!) {
+            no locale;
+            use Errno;
+            $! = eval "&Errno::$err";   # Convert to strerror() output
+            my $strerror = "$!";
+            if ("$strerror" =~ /\P{ASCII}/) {
+                $ok21 = 0;
+                last;
             }
         }
     }