some bugfixes..

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

bin/export.pike

 #!/usr/local/bin/pike
 
-/* $Id: export.pike,v 1.30 2000/03/27 00:45:25 hubbe Exp $ */
+/* $Id: export.pike,v 1.31 2000/03/27 20:29:45 hubbe Exp $ */
 
 #include <simulate.h>
 import Stdio;
@@ -205,7 +205,7 @@ int main(int argc, string *argv)
   object o=Stdio.File();
 
   int first=1;
-  foreach(files/50,files)
+  foreach(files/50.0,files)
     {
       if(Process.create_process(({"tar",
 				    first?"cvf":"rvf",

bin/install.pike

@@ -24,7 +24,17 @@ int istty()
   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
@@ -514,7 +524,7 @@ done
   string tmpmsg=".";
 
   string tararg="cf";
-  foreach(to_export/50, array files_to_tar)
+  foreach(to_export/50.0, array files_to_tar)
     {
       status("Creating",tmpname+".tar",tmpmsg);
       tmpmsg+=".";
@@ -1127,7 +1137,7 @@ void do_install()
       foreach(to_dump, string mod) rm(mod+".o");
       /* Dump 50 modules at a time */
       write("\n");
-      foreach(to_dump/50,to_dump)
+      foreach(to_dump/50.0,to_dump)
 	{
 	  write("    ");
 	  Process.create_process( ({pike,

bin/test_pike.pike

 #!/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,7 +27,17 @@ int istty()
   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