From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Wed, 8 Nov 2000 20:01:39 +0000 (+0300)
Subject: Locale buglets.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a528dad0140a72a05d9c18ae004dd8da0b4353b6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;
 		}