Path: utzoo!attcan!uunet!munnari.oz.au!mel.dit.csiro.au!yarra!melba.bby.oz.au!gnb
From: gnb@bby.oz.au (Gregory N. Bond)
Newsgroups: comp.lang.perl
Subject: Re: Yet another perl portability bug
Message-ID: <1990Dec11.220809.20201@melba.bby.oz.au>
Date: 11 Dec 90 22:08:09 GMT
References: <1990Dec11.052604.21319@cs.UAlberta.CA>
Sender: news@melba.bby.oz.au
Organization: Burdett, Buckeridge and Young Ltd.
Lines: 19
In-Reply-To: hoover@cs.UAlberta.CA's message of 11 Dec 90 05:26:04 GMT

>>>>> On 11 Dec 90 05:26:04 GMT, hoover@cs.UAlberta.CA (Jim Hoover) said:

Jim> 746c747,748
Jim> < 	return retval;
Jim> ---
Jim> 	    /* FIX - memcmp is not guaranteed to return -1 0 +1, just sign */
Jim> 	    return (retval > 0) ? +1 : -1;

Bzzt.  What it retval == 0?  You mean 
	return (retval > 0) ? 1 : (retval < 0) ? -1 : 0;
or perhaps
	return (retval < 0) ? -1 : (retval > 0);

But you knew that...

--
Gregory Bond, Burdett Buckeridge & Young Ltd, Melbourne, Australia
Internet: gnb@melba.bby.oz.au    non-MX: gnb%melba.bby.oz@uunet.uu.net
Uucp: {uunet,pyramid,ubc-cs,ukc,mcvax,prlb2,nttlab...}!munnari!melba.bby.oz!gnb