fixed for newer perl
[tridge/junkcode.git] / logit.c
1 static void logit(const char *format, ...)
2 {
3         va_list ap;
4         FILE *f = fopen("/tmp/mylog", "a");
5         if (!f) return;
6         va_start(ap, format);
7         vfprintf(f, format, ap);
8         va_end(ap);
9         fclose(f);
10 }