perl.h: Revise another locale setting macro

We generally don't want to switch to the default underlying locale
unless we are in the scope of some form of 'use locale'.  Prior to this
commit, this code did not allow the switch for
'use locale ":not_characters"'.

1 files changed, 13 insertions, 1 deletions

diff --git a/t/run/locale.t b/t/run/locale.t
index 0ecf9a941e..d4419caa39 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -113,6 +113,18 @@ EOF
         }
 
         {
+	    fresh_perl_is(<<'EOF', $difference, {},
+use locale ":not_characters";
+format STDOUT =
+@.#
+4.179
+.
+write;
+EOF
+	    "format() looks at LC_NUMERIC with 'use locale \":not_characters\"'");
+        }
+
+        {
 	    fresh_perl_is(<<'EOF', "4.2", {},
 format STDOUT =
 @.#
@@ -213,4 +225,4 @@ EOF
 
 } # SKIP
 
-sub last { 11 }
+sub last { 12 }