lib/locale.t: Fix debug statement

This was printing using the wrong function.  It is a string, and should
use the string output function.

1 files changed, 1 insertions, 6 deletions

diff --git a/lib/locale.t b/lib/locale.t
index c8741c3842..31b40f91a3 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -917,12 +917,7 @@ foreach my $Locale (@Locale) {
 
     debug "is utf8 locale? = $is_utf8_locale\n";
 
-    my $radix = localeconv()->{decimal_point};
-    if ($radix !~ / ^ [[:ascii:]] + $/x) {
-        use bytes;
-        $radix = disp_chars(split "", $radix);
-    }
-    debug "radix = $radix\n";
+    debug "radix = " . disp_str(localeconv()->{decimal_point}) . "\n";
 
     if (! $is_utf8_locale) {
         use locale;