Tue Nov 25 16:06:26 2014: Request 100554 was acted upon.
Transaction: Ticket created by BULKDD
Queue: Win32-OLE
Subject: utf8_to_uvuni is deprecated, W32::OLE wont build on NO_MATHOMS
Broken in: 0.1712
Severity: (no value)
Owner: Nobody
Requestors: [email protected]
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=100554 >
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
