From a528dad0140a72a05d9c18ae004dd8da0b4353b6 Mon Sep 17 00:00:00 2001 From: Vadim Konovalov Date: Wed, 8 Nov 2000 23:01:39 +0300 Subject: [PATCH] Locale buglets. Subject: RE: Locales support (setlocale) fixes From: "Konovalov, Vadim" Message-ID: <402099F49BEED211999700805FC7359F825283@ru0028exch01.spb.lucent.com> p4raw-id: //depot/perl@7609 --- t/pragma/locale.t | 2 +- util.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.7.4