Branch: Tag:

1997-03-03

1997-03-03 13:13:05 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Work-around for Simulate.perror.

Rev: server/etc/include/roxen.pre.pike:1.5.2.2

1:   import files;    - void perror(string format,mixed ... args); + void roxen_perror(string format,mixed ... args);      #if !efun(error)   #define error(X) do{array Y=backtrace();throw(({(X),Y[..sizeof(Y)-2]}));}while(0)
20:    catch {    if(p->query_fd() < 0)    { -  perror("File to dup2 to closed!\n"); +  roxen_perror("File to dup2 to closed!\n");    exit(99);    }    p->dup2(file("stdout"));
79:    if(stringp(wd) && sizeof(wd))    cd(wd);    exece(s, args, env); -  perror(sprintf("Spawne: Failed to exece %s\n", s)); +  roxen_perror(sprintf("Spawne: Failed to exece %s\n", s));    exit(0);   }   
103:      private static int perror_last_was_newline=1;    - void perror(string format,mixed ... args) + void roxen_perror(string format,mixed ... args)   {    string s;    int lwn;
120:   void create()   {    add_constant("spawne",spawne); -  add_constant("perror",perror); +  add_constant("perror",roxen_perror); +  add_constant("roxen_perror",roxen_perror);    add_constant("popen",popen);   }