Fix Perl_langinfo currency symbol for non-nl_langinfo systems

Commit 628ff75 broke this.
Perl · Feb 26, 2018 · a34edee · a34edee
1 parent 3d79e57
commit a34edee
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/locale.c b/locale.c
@@ -2581,13 +2581,13 @@ S_my_nl_langinfo(const int item, bool toggle)
                 { /*  khw couldn't figure out how the localedef specifications
                       would show that the $ should replace the radix; this is
                       just a guess as to how it might work.*/
-                    retval = ".";
+                    PL_langinfo_buf[0] = '.';
                 }
                 else if (lc->p_cs_precedes) {
-                    retval = "-";
+                    PL_langinfo_buf[0] = '-';
                 }
                 else {
-                    retval = "+";
+                    PL_langinfo_buf[0] = '+';
                 }
 
                 LOCALE_UNLOCK;