diff options
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 232a309a97..beb7e2c764 100644 --- 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"); |