From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 18 Nov 2001 19:08:40 +0000 (+0000)
Subject: Win32 layer has a dup which needs to match new prototype.
X-Git-Tag: upstream/5.16.3~23914^2~491
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=af9603a6cfcfbd30bbf18d21ddf3f61b30e8004c;p=platform%2Fupstream%2Fperl.git

Win32 layer has a dup which needs to match new prototype.

p4raw-id: //depot/perlio@13081
---

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);