--- CV/CV.xs	2005/08/22 00:30:58	1.28
+++ CV/CV.xs	2005/09/24 01:25:17	1.29
@@ -128,6 +128,23 @@
 
 PROTOTYPES: ENABLE
 
+# missing function in perl. really :)
+int
+common_prefix_length (a, b)
+	unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg);
+	unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg);
+	CODE:
+        RETVAL = 0;
+
+        while (*a == *b && *a)
+          {
+            RETVAL += (*a & 0xc0) != 0x80;
+            a++, b++;
+          }
+
+        OUTPUT:
+        RETVAL
+
 # missing in Gtk2 perl module
 
 gboolean