diff options
| -rw-r--r-- | perl-install/c/stuff.xs.pl | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 2e80b0998..68efef0a2 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -112,7 +112,30 @@ void initIMPS2() { tcdrain(fd); } -void log_message(const char * s, ...) {} +void log_message(const char * s, ...) { + va_list args; + va_list args_copy; + FILE * logtty = fopen("/dev/tty3", "w"); + if (!logtty) + return; + fprintf(logtty, "* "); + va_start(args, s); + vfprintf(logtty, s, args); + fprintf(logtty, "\n"); + fclose(logtty); + va_end(args); + + logtty = fopen("/tmp/ddebug.log", "a"); + if (!logtty) + return; + fprintf(logtty, "* "); + va_copy(args_copy, args); + va_start(args_copy, s); + vfprintf(logtty, s, args_copy); + fprintf(logtty, "\n"); + fclose(logtty); + va_end(args_copy); +} '; |