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

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 0cb5c3074e..fe88f23414 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;
 		}