Fix a wrong length in APItest.xs:test_coplabel

diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs
index 232a309..beb7e2c 100644 (file)
--- a/ext/XS-APItest/APItest.xs
+++ b/ext/XS-APItest/APItest.xs
@@ -2414,7 +2414,7 @@ test_coplabel()
         Perl_cop_store_label(aTHX_ cop, "foä", 4, SVf_UTF8);
         label = Perl_cop_fetch_label(aTHX_ cop, &len, &utf8);
         if (strcmp(label,"foä")) croak("fail # cop_fetch_label label");
-        if (len != 3) croak("fail # cop_fetch_label len");
+        if (len != 4) croak("fail # cop_fetch_label len");
         if (!utf8) croak("fail # cop_fetch_label utf8");