X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=globals.c;h=6368f28ecdf2bcabce15696b58778191bc401ff7;hb=3e9bebd5e3537348bf6b698defecf0de0d19dde7;hp=41dc924894c71564abe7f3a8011c347a43dfcaac;hpb=146174a91a192983720a158796dc066226ad0e55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/globals.c b/globals.c
index 41dc924..6368f28 100644
--- a/globals.c
+++ b/globals.c
@@ -73,8 +73,19 @@ CPerlObj::do_aspawn(void *vreally, void **vmark, void **vsp)
 int
 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
 {
-    dTHX;
+    dTHXs;
     va_list(arglist);
     va_start(arglist, format);
     return PerlIO_vprintf(stream, format, arglist);
 }
+
+int
+Perl_printf_nocontext(const char *format, ...)
+{
+    dTHXs;
+    va_list(arglist);
+    va_start(arglist, format);
+    return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
+}
+
+#include "perlapi.h"		/* bring in PL_force_link_funcs */