From: Jan Dubois <jand@activestate.com>
Date: Tue, 20 Dec 2005 16:42:24 +0000 (-0800)
Subject: Fix bug in change #26379
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27675a8e700ba7005e0a62604093abd3823685d5;p=p5sagit%2Fp5-mst-13.2.git

Fix bug in change #26379
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <046001c605c7$69470290$d563a8c0@candy>

p4raw-id: //depot/perl@26430
---

diff --git a/win32/win32.c b/win32/win32.c
index b09ae94..347bff3 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4983,7 +4983,7 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst)
     dst->pseudo_id		= 0;
     Newxz(dst->pseudo_children, 1, pseudo_child_tab);
     dst->timerid                = 0;
-    w32_message_hwnd            = INVALID_HANDLE_VALUE;
+    dst->message_hwnd		= INVALID_HANDLE_VALUE;
     dst->poll_count             = 0;
     Copy(src->sigtable,dst->sigtable,SIG_SIZE,Sighandler_t);
 }