package/tcl/tcl.patch

   1 diff -udN tcl8.4.12_nogood/compat/strtod.c tcl8.4.12/compat/strtod.c
   2 --- tcl8.4.12_nogood/compat/strtod.c    2002-02-25 09:26:12.000000000 -0500
   3 +++ tcl8.4.12/compat/strtod.c   2005-12-05 17:01:25.000000000 -0500
   4 @@ -23,6 +23,9 @@
   5  #ifndef NULL
   6  #define NULL 0
   7  #endif
   8 +#ifdef strtod
   9 + #undef strtod
  10 +#endif
  11
  12  static int maxExponent = 511;  /* Largest possible base 10 exponent.  Any
  13                                  * exponent larger than this will already
  14