X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=globals.c;h=6368f28ecdf2bcabce15696b58778191bc401ff7;hb=206b12d5641a74e09d210dd4ea3998febd96392f;hp=41dc924894c71564abe7f3a8011c347a43dfcaac;hpb=12a98ad5c89fb8cd6cec9de80136f28ee2c769ff;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 */