The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SREZIC / Tk-804.028 / Event / tclPlatEvent.c 
#define TCL_EVENT_IMPLEMENT
#ifdef WIN32
#include "../pTk/exWinHandle.c"
#else
#include "../pTk/tclUnixEvent.c"
#endif