diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-02-04 10:37:26 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-11 07:29:00 +1200 |
| commit | 61839fa9abc846d536cfde630335d4594d0bb0fe (patch) | |
| tree | dd87dcebc7e5ee39add1262f1b9ce466a18a8b05 /ext/IO | |
| parent | 308b391c11907576fe67d6d8e0ab592a91e21f0f (diff) | |
| download | perl-61839fa9abc846d536cfde630335d4594d0bb0fe.tar.gz | |
Fix warning from missing POSIX::setvbuf()
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.xs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 8611b2dd2f..5efbf24815 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 |