Socket::my_inet_aton() tweak
[p5sagit/p5-mst-13.2.git] / globals.c
1 #include "INTERN.h"
2 #define PERL_IN_GLOBALS_C
3 #include "perl.h"
4
5 int
6 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
7 {
8     dTHXs;
9     va_list(arglist);
10     va_start(arglist, format);
11     return PerlIO_vprintf(stream, format, arglist);
12 }
13
14 int
15 Perl_printf_nocontext(const char *format, ...)
16 {
17     dTHXs;
18     va_list(arglist);
19     va_start(arglist, format);
20     return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
21 }
22
23 #include "perlapi.h"            /* bring in PL_force_link_funcs */