From: Chip Salzenberg <chip@perl.com>
Date: Sun, 22 Dec 1996 02:07:47 +0000 (+1200)
Subject: In perlio, fix vprintf() definition and define vfprintf()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=662a7e3f419913fcaac63451e3424478903b6e79;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/perlio.c b/perlio.c
index 85b036c..d9b3d81 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;
 {