| Subject: | utf8_to_uvuni is deprecated, W32::OLE wont build on NO_MATHOMS |
utf8_to_uvuni is deprecated, and not available at all on NO_MATHOMS perl, this quick and dirty patch fixes the problem
#if PERL_VERSION < 6
# error Win32::OLE requires Perl 5.6.0 or later
#endif
#ifdef USE_5005THREADS
# error Win32::OLE is incompatible with 5.005 style threads
#endif
#if PERL_VERSION > 6
# ifndef NO_MATHOMS
# define my_utf8_to_uv(s) utf8_to_uvuni(s, NULL)
# else
/* this has risk of buffer overflow but too complicated to fix */
# define my_utf8_to_uv(s) utf8_to_uvchr_buf(s, s+5, NULL)
# endif
#else
# if PERL_SUBVERSION > 0
# define my_utf8_to_uv(s) utf8_to_uv_simple(s, NULL)
# else
# define my_utf8_to_uv(s) utf8_to_uv(s, NULL)
# endif
#endif
#ifndef _DEBUG
# define DBG(a)
#else
# define DBG(a) MyDebug a