pike.git/ bin/ test_pike.pike

2000-03-27

2000-03-27 20:29:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• b7df1bcc936625bef5af9c46291fbd585a7d92b9 (15 lines) (+13/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

some bugfixes..

Rev: bin/export.pike:1.31
Rev: bin/install.pike:1.50
Rev: bin/test_pike.pike:1.40

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.39 2000/03/25 22:45:59 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.40 2000/03/27 20:29:45 hubbe Exp $ */      import Stdio;   
27:    if(!istty_cache)    {    istty_cache=!!Stdio.stdin->tcgetattr(); -  if(!istty_cache) istty_cache=-1; +  if(!istty_cache) +  { +  istty_cache=-1; +  }else{ +  switch(getenv("TERM")) +  { +  case "dumb": +  case "emacs": +  istty_cache=-1;    } -  +  } +  }    return istty_cache>0;   #endif   }