Branch: Tag:

1997-04-22

1997-04-22 03:36:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

minor bugfixes

Rev: lib/master.pike:1.42
Rev: lib/modules/Getopt.pmod:1.3
Rev: lib/modules/LR.pmod/parser.pike:1.3
Rev: src/configure.in:1.90

125:    mapping quick=([]);    foreach(options, mixed opt)    { -  foreach(stringp(opt[ALIASES])?({opt[ALIASES]}):opt[ALIASES], -  mixed optname) +  mixed aliases=opt[ALIASES]; +  if(!arrayp(aliases)) aliases=({aliases}); +  foreach(aliases, mixed optname)    {    if(optname[0..1]=="--")    {
211:    multiset done=mkmultiset(column(ret, 0));    foreach(options, string *option)    { -  if(done[ret]) continue; +  string name=option[NAME]; +  if(done[name]) continue;    if(sizeof(option) > ENV)    {    mixed foo=option[ENV]; -  string name=option[NAME]; +     if(!foo) continue;    if(stringp(foo)) foo=({foo});    foreach(foo, foo)