Locale buglets.

Subject: RE: Locales support (setlocale) fixes
From: "Konovalov, Vadim" <vkonovalov@lucent.com>
Message-ID: <402099F49BEED211999700805FC7359F825283@ru0028exch01.spb.lucent.com>

p4raw-id: //depot/perl@7609

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 61fb075..42c6909 100755 (executable)
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -278,7 +278,7 @@ Norsk Norwegian:no no\@nynorsk:no:1 15
 Occitan:oc:es:1 15
 Polski Polish:pl:pl:2
 Rumanian:ro:ro:2
-Russki Russian:ru:ru su ua:5 koi8 koi8r KOI8-R koi8u cp1251
+Russki Russian:ru:ru su ua:5 koi8 koi8r KOI8-R koi8u cp1251 cp866
 Serbski Serbian:sr:yu:5
 Slovak:sk:sk:2
 Slovene Slovenian:sl:si:2

diff --git a/util.c b/util.c
index 0cb5c30..fe88f23 100644 (file)
--- a/util.c
+++ b/util.c
@@ -514,7 +514,7 @@ S_stdize_locale(pTHX_ char *locs)
 
                if (u[1] == 0) {
                    STRLEN len = u - s;
-                   Move(t + 1, locs, len, char);
+                   Move(s + 1, locs, len, char);
                    locs[len] = 0;
                    okay = TRUE;
                }