diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 19:08:40 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 19:08:40 +0000 |
| commit | af9603a6cfcfbd30bbf18d21ddf3f61b30e8004c (patch) | |
| tree | cedf3a8617803be9726de41a74d1364a2403fdb1 /win32 | |
| parent | 293ed4d2d77af94fb636abf7295b5e2dd98c1695 (diff) | |
| download | perl-af9603a6cfcfbd30bbf18d21ddf3f61b30e8004c.tar.gz | |
Win32 layer has a dup which needs to match new prototype.
p4raw-id: //depot/perlio@13081
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32io.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32io.c b/win32/win32io.c index 98eb292286..3c954d63a4 100644 --- a/win32/win32io.c +++ b/win32/win32io.c @@ -295,7 +295,7 @@ PerlIOWin32_close(PerlIO *f) } PerlIO * -PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params) +PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params, int flags) { PerlIOWin32 *os = PerlIOSelf(f,PerlIOWin32); HANDLE proc = GetCurrentProcess(); @@ -306,7 +306,7 @@ PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params) int fd = win32_open_osfhandle((long) new, PerlIOUnix_oflags(PerlIO_modestr(o,mode))); if (fd >= 0) { - f = PerlIOBase_dup(aTHX_ f, o, params); + f = PerlIOBase_dup(aTHX_ f, o, params, flags); if (f) { PerlIOWin32 *fs = PerlIOSelf(f,PerlIOWin32); |