The return from setlocale() on a new locale is documented in Linux as
opaque, even though the Linux smokers we have return the name of the
new locale. It turns out that VMS actually does return something
different, and this test fails there. So, the test is testing for
something that just happens to be currently true on many of our systems;
hence isn't general, and hence shouldn't be tested for.
And, the test isn't necessary, as we can infer from the other tests in
the file that a locale passed via the environment actually takes hold,
as we do so for a locale which has a comma radix, and test that the
radix is correctly set.
"No compile error on v-strings when setting the locale to non-dot radix at compile time when default environment has non-dot radix");
}
- for ($different) {
- local $ENV{LC_NUMERIC} = $_;
- local $ENV{LC_ALL}; # so it never overrides LC_NUMERIC
- fresh_perl_is(<<"EOF",
- use POSIX qw(locale_h);
-
- BEGIN { print setlocale(LC_NUMERIC), "\n"; };
-EOF
- $_, { },
- "Passed in LC_NUMERIC is valid at compilation time");
- }
-
unless ($comma) {
skip("no locale available where LC_NUMERIC is a comma", 2);
}
} # SKIP
-sub last { 17 }
+sub last { 16 }