--- Convert-BER-XS/XS.xs	2019/04/20 01:50:13	1.8
+++ Convert-BER-XS/XS.xs	2019/04/20 02:12:27	1.9
@@ -94,6 +94,10 @@
 static SV *buf_sv; // encoding buffer
 static U8 *buf, *cur, *end; // buffer start, current, end
 
+#if PERL_VERSION < 18
+# define utf8_to_uvchr_buf(s,e,l) utf8_to_uvchr (s, l)
+#endif
+
 #if __GNUC__ >= 3
 # define expect(expr,value)         __builtin_expect ((expr), (value))
 # define INLINE                     static inline