In perl.git, the branch smoke-me/leont/perlio-win32 has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/0b4755b186f82898af5e87b399a19617464b7e65?hp=89a8b7af15c8b5515fb995b23ca59508ff403d1c>
- Log -----------------------------------------------------------------
commit 0b4755b186f82898af5e87b399a19617464b7e65
Author: Leon Timmermans <faw...@gmail.com>
Date: Fri Jul 4 03:54:26 2014 +0200
Get old win32 handle from old PerlIO handle
-----------------------------------------------------------------------
Summary of changes:
win32/win32io.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/win32/win32io.c b/win32/win32io.c
index 6a366be..2f2387a 100644
--- a/win32/win32io.c
+++ b/win32/win32io.c
@@ -320,7 +320,7 @@ PerlIOWin32_close(pTHX_ PerlIO *f)
PerlIO *
PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params, int flags)
{
- PerlIOWin32 *os = PerlIOSelf(f,PerlIOWin32);
+ PerlIOWin32 *os = PerlIOSelf(o,PerlIOWin32);
HANDLE proc = GetCurrentProcess();
HANDLE new_h;
if (DuplicateHandle(proc, os->h, proc, &new_h, 0, TRUE,
DUPLICATE_SAME_ACCESS))
--
Perl5 Master Repository
