t/run/locale.t: Remove unnecessary setlocales()
authorKarl Williamson <khw@cpan.org>
Wed, 4 Jun 2014 01:46:19 +0000 (19:46 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 5 Jun 2014 18:23:03 +0000 (12:23 -0600)
The locale is supposed to be passed in via the environment.  There is no
need to also set it explicitly.

t/run/locale.t

index 4ecc2b2..ef88ea6 100644 (file)
@@ -243,7 +243,6 @@ EOF
        fresh_perl_is(<<'EOF', "$difference "x4, {},
             use locale;
            use POSIX qw(locale_h);
-           setlocale(LC_NUMERIC, "");
            my $in = 4.2;
            printf("%g %g %s %s ", $in, 4.2, sprintf("%g", $in), sprintf("%g", 4.2));
 EOF
@@ -257,7 +256,6 @@ EOF
        fresh_perl_is(<<'EOF', "$difference "x4, {},
             use locale;
            use POSIX qw(locale_h);
-           setlocale(LC_NUMERIC, "");
            my $in = 4.2;
            printf("%g %g %s %s ", $in, 4.2, sprintf("%g", $in), sprintf("%g", 4.2));
 EOF
@@ -287,7 +285,6 @@ EOF
                 }
                 use locale;
                 use POSIX qw(locale_h);
-                setlocale(LC_NUMERIC, "");
                 my \$in = 4.2;
                 printf("%g", \$in);
 EOF
@@ -315,7 +312,6 @@ EOF
                     }
                     use locale;
                     use POSIX qw(locale_h);
-                    setlocale(LC_NUMERIC, "");
                     my \$in = 4.2;
                     printf("%g", \$in);
 EOF