run/locale.t: reindent block
authorDavid Mitchell <davem@iabyn.com>
Mon, 14 Apr 2014 14:31:06 +0000 (15:31 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 14 Apr 2014 14:37:17 +0000 (15:37 +0100)
Re-indent a block of code after the previous commit added an extra scope.
Whitespace-only change

t/run/locale.t

index 8287214..de64c77 100644 (file)
@@ -209,44 +209,45 @@ EOF
         open my $saved_stderr, ">&STDERR" or die "Can't dup STDERR: $!";
         close STDERR;
 
-    for ($different) {
-        local $ENV{LC_ALL} = "invalid";
-       local $ENV{LC_NUMERIC} = "invalid";
-        local $ENV{LANG} = $_;
+        for ($different) {
+            local $ENV{LC_ALL} = "invalid";
+            local $ENV{LC_NUMERIC} = "invalid";
+            local $ENV{LANG} = $_;
 
-        # Can't turn off the warnings, so send them to /dev/null
-        fresh_perl_is(<<'EOF', "$difference", { stderr => "devnull" },
-        use locale;
-            use POSIX qw(locale_h);
-            setlocale(LC_NUMERIC, "");
-            my $in = 4.2;
-            printf("%g", $in);
+            # Can't turn off the warnings, so send them to /dev/null
+            fresh_perl_is(<<'EOF', "$difference", { stderr => "devnull" },
+                use locale;
+                use POSIX qw(locale_h);
+                setlocale(LC_NUMERIC, "");
+                my $in = 4.2;
+                printf("%g", $in);
 EOF
-        "LANG is used if LC_ALL, LC_NUMERIC are invalid");
-    }
-
-    SKIP: {
-        if ($^O eq 'MSWin32') {
-            skip("Win32 uses system default locale in preference to \"C\"", 1);
+            "LANG is used if LC_ALL, LC_NUMERIC are invalid");
         }
-        else {
-            for ($different) {
-                local $ENV{LC_ALL} = "invalid";
-                local $ENV{LC_NUMERIC} = "invalid";
-                local $ENV{LANG} = "invalid";
 
-                # Can't turn off the warnings, so send them to /dev/null
-                fresh_perl_is(<<'EOF', 4.2, { stderr => "devnull" },
-                use locale;
-                    use POSIX qw(locale_h);
-                    setlocale(LC_NUMERIC, "");
-                    my $in = 4.2;
-                    printf("%g", $in);
+        SKIP: {
+            if ($^O eq 'MSWin32') {
+                skip("Win32 uses system default locale in preference to \"C\"",
+                        1);
+            }
+            else {
+                for ($different) {
+                    local $ENV{LC_ALL} = "invalid";
+                    local $ENV{LC_NUMERIC} = "invalid";
+                    local $ENV{LANG} = "invalid";
+
+                    # Can't turn off the warnings, so send them to /dev/null
+                    fresh_perl_is(<<'EOF', 4.2, { stderr => "devnull" },
+                        use locale;
+                        use POSIX qw(locale_h);
+                        setlocale(LC_NUMERIC, "");
+                        my $in = 4.2;
+                        printf("%g", $in);
 EOF
-                'C locale is used if LC_ALL, LC_NUMERIC, LANG are invalid');
+                    'C locale is used if LC_ALL, LC_NUMERIC, LANG are invalid');
+                }
             }
         }
-    }
 
     open STDERR, ">&", $saved_stderr or die "Can't dup \$saved_stderr: $!";
     }