This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Clarify some debug statements
authorKarl Williamson <khw@cpan.org>
Wed, 13 Sep 2017 22:03:53 +0000 (16:03 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 9 Nov 2017 03:52:52 +0000 (20:52 -0700)
locale.c

index d31db26..b2eaf4c 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -284,7 +284,7 @@ Perl_set_numeric_standard(pTHX)
 
     if (DEBUG_L_TEST || debug_initialization) {
         PerlIO_printf(Perl_debug_log,
-                          "Underlying LC_NUMERIC locale now is C\n");
+                          "LC_NUMERIC locale now is standard C\n");
     }
 
 #  endif
@@ -313,7 +313,7 @@ Perl_set_numeric_underlying(pTHX)
 
     if (DEBUG_L_TEST || debug_initialization) {
         PerlIO_printf(Perl_debug_log,
-                          "Underlying LC_NUMERIC locale now is %s\n",
+                          "LC_NUMERIC locale now is %s\n",
                           PL_numeric_name);
     }