Группа :: Разработка/Tcl
Пакет: expect
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: 24-format.patch
Скачать
Скачать
--- a/exp_clib.c
+++ b/exp_clib.c
@@ -1483,8 +1483,8 @@
char *str;
{
if (exp_is_debugging) {
- fprintf(stderr,str);
- if (exp_logfile) fprintf(exp_logfile,str);
+ fprintf(stderr,"%s",str);
+ if (exp_logfile) fprintf(exp_logfile,"%s",str);
}
}
--- a/exp_command.c
+++ b/exp_command.c
@@ -995,7 +995,7 @@
exp_slave_control(master,1);
- sprintf(value,"%d",esPtr->fd_slave);
+ sprintf(value,"%ld",esPtr->fd_slave);
Tcl_SetVar2(interp,SPAWN_OUT,"slave,fd",value,0);
}
Tcl_SetObjResult (interp, Tcl_NewIntObj (EXP_NOPID));