From 12aa154540b3c1c56d15cc92a5128a812c4e29ae Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 15 May 2001 01:41:26 +0000 Subject: [PATCH] Fix for 20010514.037; substr() didn't invalidate the locale collation magic. p4raw-id: //depot/perl@10106 --- pp.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pp.c b/pp.c index 91c0f19..d68b689 100644 --- a/pp.c +++ b/pp.c @@ -2808,6 +2808,9 @@ PP(pp_substr) sv_pos_u2b(sv, &pos, &rem); tmps += pos; sv_setpvn(TARG, tmps, rem); +#ifdef USE_LOCALE_COLLATE + sv_unmagic(TARG, 'o'); +#endif if (utf8_curlen) SvUTF8_on(TARG); if (repl) { -- 2.7.4