diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-08 10:19:27 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-08 10:19:27 +0000 |
| commit | 93af7a870f71dbbb13443b4087703de0221add17 (patch) | |
| tree | e767c53d4d4f1783640e5410f94655e45b58b3d0 /ext/IO/IO.xs | |
| parent | c116a00cf797ec2e6795338ee18b88d975e760c5 (diff) | |
| parent | 2269e8ecc334a5a77bdb915666547431c0171402 (diff) | |
| download | perl-93af7a870f71dbbb13443b4087703de0221add17.tar.gz | |
Merge maint-5.004 branch (5.004_03) with mainline.
MANIFEST is out of sync.
p4raw-id: //depot/perl@114
Diffstat (limited to 'ext/IO/IO.xs')
| -rw-r--r-- | ext/IO/IO.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 2eb16f40ec..e558d5c4e0 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -271,6 +271,8 @@ setvbuf(handle, buf, type, size) CODE: /* Should check HAS_SETVBUF once Configure tests for that */ #if defined(PERLIO_IS_STDIO) && defined(_IOFBF) + if (!handle) /* Try input stream. */ + handle = IoIFP(sv_2io(ST(0))); if (handle) RETVAL = setvbuf(handle, buf, type, size); else { |