The miniperl skip in utf8cache.t was wrong.

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 0f53421..32ef097 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1742,7 +1742,7 @@
 #define isa_lookup(a,b,c,d)    S_isa_lookup(aTHX_ a,b,c,d)
 #  endif
 #  if defined(PERL_IN_UTF8_C)
-#define check_locale_boundary_crossing(a,b,c,d)        S_check_locale_boundary_crossing(aTHX_ a,b,c,d)
+#define check_locale_boundary_crossing(a,b,c,d,e)      S_check_locale_boundary_crossing(aTHX_ a,b,c,d,e)
 #define is_utf8_common(a,b,c,d)        S_is_utf8_common(aTHX_ a,b,c,d)
 #define swash_scan_list_line(a,b,c,d,e,f,g)    S_swash_scan_list_line(aTHX_ a,b,c,d,e,f,g)
 #define swatch_get(a,b,c)      S_swatch_get(aTHX_ a,b,c)