In perlio, fix vprintf() definition and define vfprintf()

1 files changed, 9 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 85b036ca9f..d9b3d81ac3 100644
--- a/perlio.c
+++ b/perlio.c
@@ -585,7 +585,15 @@ Fpos_t *pos;
 #if (defined(PERLIO_IS_STDIO) || !defined(USE_SFIO)) && !defined(HAS_VPRINTF)
 
 int
-vprintf(fd, pat, args)
+vprintf(pat, args)
+char *pat, *args;
+{
+    _doprnt(pat, args, stdout);
+    return 0;		/* wrong, but perl doesn't use the return value */
+}
+
+int
+vfprintf(fd, pat, args)
 FILE *fd;
 char *pat, *args;
 {