This patch is FALSE: a #ifdef is required

*** src-7.2.186\if_tcl.c	2009-05-23 11:18:37.000000000 +0200
--- src\if_tcl.c	2009-05-23 11:32:20.000000000 +0200
***************
*** 161,167 ****
  # endif
  
  /*
!  * Declare HANDLE for perl.dll and function pointers.
   */
  static HANDLE hTclLib = NULL;
  Tcl_Interp* (*dll_Tcl_CreateInterp)();
--- 161,167 ----
  # endif
  
  /*
!  * Declare HANDLE for tcl.dll and function pointers.
   */
  static HANDLE hTclLib = NULL;
  Tcl_Interp* (*dll_Tcl_CreateInterp)();
***************
*** 182,188 ****
   * Make all runtime-links of tcl.
   *
   * 1. Get module handle using LoadLibraryEx.
!  * 2. Get pointer to perl function by GetProcAddress.
   * 3. Repeat 2, until get all functions will be used.
   *
   * Parameter 'libname' provides name of DLL.
--- 182,188 ----
   * Make all runtime-links of tcl.
   *
   * 1. Get module handle using LoadLibraryEx.
!  * 2. Get pointer to tcl function by GetProcAddress.
   * 3. Repeat 2, until get all functions will be used.
   *
   * Parameter 'libname' provides name of DLL.
***************
*** 1682,1692 ****
      channel_gethandle,
      NULL,
      NULL,
!     NULL,
!     NULL,
!     NULL,
!     NULL,
!     NULL
  };
  
  /**********************************
--- 1682,1697 ----
      channel_gethandle,
      NULL,
      NULL,
! #ifdef TCL_CHANNEL_VERSION_2
!     NULL,   /* flushProc */
!     NULL,   /* handlerProc */
! #endif
! #ifdef TCL_CHANNEL_VERSION_3
!     NULL,   /* wideSeekProc */
! #endif
! #ifdef TCL_CHANNEL_VERSION_4
!     NULL    /* threadActionProc */
! #endif
  };
  
  /**********************************