patch against t/op/sub_lval.t
[perl.git] / globals.c
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
10 /*
11  * "For the rest, they shall represent the other Free Peoples of the World:
12  * Elves, Dwarves, and Men." --Elrond
13  */
14
15 #include "INTERN.h"
16 #define PERL_IN_GLOBALS_C
17 #include "perl.h"
18
19 int
20 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
21 {
22     dTHXs;
23     va_list(arglist);
24     va_start(arglist, format);
25     return PerlIO_vprintf(stream, format, arglist);
26 }
27
28 int
29 Perl_printf_nocontext(const char *format, ...)
30 {
31     dTHX;
32     va_list(arglist);
33     va_start(arglist, format);
34     return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
35 }
36
37 #include "perlapi.h"            /* bring in PL_force_link_funcs */