Commit | Line | Data |
d6376244 |
1 | /* globals.c |
2 | * |
3 | * Copyright (c) 1997-2002, Larry Wall |
4 | * |
5 | * You may distribute under the terms of either the GNU General Public |
6 | * License or the Artistic License, as specified in the README file. |
7 | * |
8 | */ |
9 | |
ecfc5424 |
10 | #include "INTERN.h" |
864dbfa3 |
11 | #define PERL_IN_GLOBALS_C |
ecfc5424 |
12 | #include "perl.h" |
76e3520e |
13 | |
c5be433b |
14 | int |
15 | Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) |
16 | { |
1de7c2ac |
17 | dTHXs; |
c5be433b |
18 | va_list(arglist); |
19 | va_start(arglist, format); |
20 | return PerlIO_vprintf(stream, format, arglist); |
21 | } |
682fc664 |
22 | |
b0316773 |
23 | int |
24 | Perl_printf_nocontext(const char *format, ...) |
25 | { |
e87a358a |
26 | dTHX; |
b0316773 |
27 | va_list(arglist); |
28 | va_start(arglist, format); |
29 | return PerlIO_vprintf(PerlIO_stdout(), format, arglist); |
30 | } |
31 | |
682fc664 |
32 | #include "perlapi.h" /* bring in PL_force_link_funcs */ |