diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-07-17 23:02:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-17 23:02:11 -0700 |
| commit | 720247110fcd72c65cfbc66db35b9a5cb4a3b5ba (patch) | |
| tree | 72f5c4494bec2b0bb472ba1367b54371eb7dd476 | |
| parent | 32708f0ba1e66eac30fcacacec55083a2bdf4fa1 (diff) | |
| download | perl-720247110fcd72c65cfbc66db35b9a5cb4a3b5ba.tar.gz | |
Fix a wrong length in APItest.xs:test_coplabel
| -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"); |