}
#undef Perl_fprintf_nocontext
+
+#undef Perl_printf_nocontext
#endif
#undef Perl_cv_const_sv
{
return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
}
+
+#undef Perl_my_popen_list
+PerlIO*
+Perl_my_popen_list(pTHXo_ char* mode, int n, SV ** args)
+{
+ return ((CPerlObj*)pPerl)->Perl_my_popen_list(mode, n, args);
+}
#endif
#undef Perl_my_setenv
return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
}
+#undef Perl_printf_nocontext
+int
+Perl_printf_nocontext(const char *format, ...)
+{
+ dTHXo;
+ va_list(arglist);
+ va_start(arglist, format);
+ return (*PL_StdIO->pVprintf)(PL_StdIO, PerlIO_stdout(), format, arglist);
+}
+
END_EXTERN_C
#endif /* PERL_OBJECT */