This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug in change #26379
authorJan Dubois <jand@activestate.com>
Tue, 20 Dec 2005 16:42:24 +0000 (08:42 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 21 Dec 2005 09:23:05 +0000 (09:23 +0000)
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <046001c605c7$69470290$d563a8c0@candy>

p4raw-id: //depot/perl@26430

win32/win32.c

index b09ae94..347bff3 100644 (file)
@@ -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);
 }