pike.git/ lib/ master.pike.in

1999-12-01

1999-12-01 09:14:04 by Martin Stjernholm <mast@lysator.liu.se>

• a2faf63342f1fe7202949c219b76eceb3ab0b090 (14 lines) (+10/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed some tests in dirnode that made it ignore objects that overload
`! to return nonzero, e.g. "if (o)" changed to "if (o!=0)".

Rev: lib/master.pike.in:1.76

1: - /* $Id: master.pike.in,v 1.75 1999/11/29 18:40:18 neotron Exp $ + /* -*- Pike -*-    * -  +  * $Id: master.pike.in,v 1.76 1999/12/01 09:14:04 mast Exp $ +  *    * Master-file for Pike.    *    * Based on master.pike 1.67.
546:       object|program ind(string index)    { -  if(module) if(object o=module[index]) return o; +  if(module) { +  object o; +  if(!zero_type(o=module[index])) return o; +  }       index = dirname+"/"+index;    if(object o=findmodule(index))
562:    mixed ret;    if(!zero_type(ret=cache[index]))    { -  if(ret) return ret; +  if(ret!=0) return ret;    return UNDEFINED;    }    return cache[index]=ind(index);
605:    array(string) _indices()    {    fill_cache(); -  return indices(filter(cache, lambda(mixed x){ return x; })); +  return indices(filter(cache, lambda(mixed x){ return x!=0; }));    }    array(mixed) _values()    {