From: Chip Salzenberg <chip@perl.com>
Date: Mon, 3 Feb 1997 22:37:26 +0000 (+1200)
Subject: Fix warning from missing POSIX::setvbuf()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61839fa9abc846d536cfde630335d4594d0bb0fe;p=p5sagit%2Fp5-mst-13.2.git

Fix warning from missing POSIX::setvbuf()
---

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 8611b2d..5efbf24 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -268,8 +268,8 @@ setvbuf(handle, buf, type, size)
 	int		type
 	int		size
     CODE:
-#ifdef PERLIO_IS_STDIO
-#ifdef _IOFBF   /* Should be HAS_SETVBUF once Configure tests for that */
+/* Should check HAS_SETVBUF once Configure tests for that */
+#if defined(PERLIO_IS_STDIO) && defined(_IOFBF)
 	if (handle)
 	    RETVAL = setvbuf(handle, buf, type, size);
 	else {
@@ -277,10 +277,7 @@ setvbuf(handle, buf, type, size)
 	    errno = EINVAL;
 	}
 #else
-	    RETVAL = (SysRet) not_here("IO::Handle::setvbuf");
-#endif /* _IOFBF */
-#else
-	    not_here("IO::Handle::setvbuf");
+	RETVAL = (SysRet) not_here("IO::Handle::setvbuf");
 #endif
     OUTPUT:
 	RETVAL