This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Use non-control for a format dummy
authorKarl Williamson <khw@cpan.org>
Tue, 2 Jan 2018 20:19:03 +0000 (13:19 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:35:09 +0000 (22:35 -0700)
We need a plain character here.  I used a '\e' before, but it would be
better to have something that isn't a control, so just change it to a
blank

locale.c

index 35da894..4e0015e 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1747,7 +1747,7 @@ S_my_nl_langinfo(const int item, bool toggle)
 
                     Newx(mod_format, mod_size, char);
                     Newx(temp_result, PL_langinfo_bufsize, char);
-                    *mod_format = '\a';
+                    *mod_format = ' ';
                     my_strlcpy(mod_format + 1, format, mod_size);
                     len = strftime(temp_result,
                                    PL_langinfo_bufsize,