Date: Fri, 10 Dec 1999 09:20:03 -0800 (PST) From: "Andrey A. Chernov" <ache@freebsd.org> To: freebsd-bugs@FreeBSD.org Subject: Re: bin/15370: bug in sort Message-ID: <199912101720.JAA25574@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
The following reply was made to PR bin/15370; it has been noted by GNATS.
From: "Andrey A. Chernov" <ache@freebsd.org>
To: Nikita Shamgunov <nsh@dream.mplik.ru>
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
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199912101720.JAA25574>