[perl #121050] Teach B::Deparse about prototype whitespace

[perl5.git] / cpan / Win32API-File / File.xs

diff --git a/cpan/Win32API-File/File.xs b/cpan/Win32API-File/File.xs
index 7dbe783..cff488f 100644 (file)
--- a/cpan/Win32API-File/File.xs
+++ b/cpan/Win32API-File/File.xs
@@ -645,3 +645,23 @@ WriteFile( hFile, pBuffer, lBytes, ouBytesWritten, pOverlapped )
     OUTPUT:
        RETVAL
        ouBytesWritten
+
+void
+GetStdHandle(fd)
+    DWORD fd
+PPCODE:
+#ifdef _WIN64
+    XSRETURN_IV((DWORD_PTR)GetStdHandle(fd));
+#else
+    XSRETURN_IV((DWORD)GetStdHandle(fd));
+#endif
+
+void
+SetStdHandle(fd,handle)
+    DWORD fd
+    HANDLE handle
+PPCODE:
+    if (SetStdHandle(fd, handle))
+       XSRETURN_YES;
+    else
+       XSRETURN_NO;