Missing argument.

p4raw-id: //depot/perl@13640

diff --git a/utf8.c b/utf8.c
index 30a4908..1a024b7 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1632,6 +1632,6 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, bool u1, const char *s2, bool u2, register
          return 0;
      }
      else
-         return ibcmp(s1, s2);
+         return ibcmp(s1, s2, len);
 }