From: Vadim Konovalov 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" 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; }