From 720247110fcd72c65cfbc66db35b9a5cb4a3b5ba Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 17 Jul 2011 23:02:11 -0700 Subject: [PATCH] Fix a wrong length in APItest.xs:test_coplabel --- ext/XS-APItest/APItest.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 232a309..beb7e2c 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"); -- 2.7.4