From owner-freebsd-bugs Fri Dec 10 9:20: 8 1999 Delivered-To: freebsd-bugs@freebsd.org Received: from freefall.freebsd.org (freefall.FreeBSD.ORG [204.216.27.21]) by hub.freebsd.org (Postfix) with ESMTP id 3FAED15797 for ; Fri, 10 Dec 1999 09:20:03 -0800 (PST) (envelope-from gnats@FreeBSD.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.9.3/8.9.2) id JAA25574; Fri, 10 Dec 1999 09:20:03 -0800 (PST) (envelope-from gnats@FreeBSD.org) Date: Fri, 10 Dec 1999 09:20:03 -0800 (PST) Message-Id: <199912101720.JAA25574@freefall.freebsd.org> To: freebsd-bugs@FreeBSD.org Cc: From: "Andrey A. Chernov" Subject: Re: bin/15370: bug in sort Reply-To: "Andrey A. Chernov" Sender: owner-freebsd-bugs@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.org The following reply was made to PR bin/15370; it has been noted by GNATS. From: "Andrey A. Chernov" To: Nikita Shamgunov Cc: FreeBSD-gnats-submit@freebsd.org Subject: Re: bin/15370: bug in sort Date: Fri, 10 Dec 1999 09:15:41 -0800 On Thu, Dec 09, 1999 at 02:50:52PM +0500, Nikita Shamgunov wrote: > my @array1 = sort {lc($a) cmp lc($b)} @array; This patch should fix the problem: --- pp.c.old Wed May 26 06:04:22 1999 +++ pp.c Fri Dec 10 19:52:31 1999 @@ -2178,7 +2178,8 @@ else *s = toUPPER(*s); } - + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2207,6 +2208,8 @@ } SETs(sv); + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2239,6 +2242,8 @@ *s = toUPPER(*s); } } + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2271,6 +2276,8 @@ *s = toLOWER(*s); } } + if (SvSMAGICAL(sv)) + mg_set(sv); RETURN; } @@ -2298,6 +2305,8 @@ else sv_setpvn(TARG, s, len); SETs(TARG); + if (SvSMAGICAL(TARG)) + mg_set(TARG); RETURN; } -- Andrey A. Chernov http://nagual.pp.ru/~ache/ MTH/SH/HE S-- W-- N+ PEC>+ D A a++ C G>+ QH+(++) 666+>++ Y To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-bugs" in the body of the message