diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-16 11:32:48 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-16 11:32:48 +0000 |
| commit | 8cf8f3d16d82d8b3561907820401eea7766f2f96 (patch) | |
| tree | d5933c761c8ed663c8cccac2ec850c06948ef221 /win32/win32io.c | |
| parent | 71200d45e1b06d4f36df595fa80b743f999642c1 (diff) | |
| download | perl-8cf8f3d16d82d8b3561907820401eea7766f2f96.tar.gz | |
Skeleton of "PerlIO_dup" coded.
Still-passes all tests non-threaded (well it would wouldn't it!)
p4raw-id: //depot/perlio@12451
Diffstat (limited to 'win32/win32io.c')
| -rw-r--r-- | win32/win32io.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/win32/win32io.c b/win32/win32io.c index b707172b6d..6152647a74 100644 --- a/win32/win32io.c +++ b/win32/win32io.c @@ -189,12 +189,12 @@ PerlIOWin32_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const ch s->h = h; s->fd = fd; s->refcnt = 1; - if (fd >= 0) + if (fd >= 0) { - fdtable[fd] = s; + fdtable[fd] = s; if (fd > max_open_fd) max_open_fd = fd; - } + } return f; } if (f) @@ -294,6 +294,13 @@ PerlIOWin32_close(PerlIO *f) return 0; } +PerlIO * +PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params) +{ + /* Almost certainly needs more work */ + return PerlIOBase_dup(aTHX_ f, o, params); +} + PerlIO_funcs PerlIO_win32 = { "win32", sizeof(PerlIOWin32), @@ -303,6 +310,7 @@ PerlIO_funcs PerlIO_win32 = { PerlIOWin32_open, NULL, /* getarg */ PerlIOWin32_fileno, + PerlIOWin32_dup, PerlIOWin32_read, PerlIOBase_unread, PerlIOWin32_write, |