1N/A/* globals.c
1N/A *
1N/A * Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others
1N/A *
1N/A * You may distribute under the terms of either the GNU General Public
1N/A * License or the Artistic License, as specified in the README file.
1N/A *
1N/A */
1N/A
1N/A/*
1N/A * "For the rest, they shall represent the other Free Peoples of the World:
1N/A * Elves, Dwarves, and Men." --Elrond
1N/A */
1N/A
1N/A#include "INTERN.h"
1N/A#define PERL_IN_GLOBALS_C
1N/A#include "perl.h"
1N/A
1N/Aint
1N/APerl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
1N/A{
1N/A dTHXs;
1N/A va_list(arglist);
1N/A va_start(arglist, format);
1N/A return PerlIO_vprintf(stream, format, arglist);
1N/A}
1N/A
1N/Aint
1N/APerl_printf_nocontext(const char *format, ...)
1N/A{
1N/A dTHX;
1N/A va_list(arglist);
1N/A va_start(arglist, format);
1N/A return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
1N/A}
1N/A
1N/A#include "perlapi.h" /* bring in PL_force_link_funcs */