X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=1cdd3eb090c2e52d8abdcd1c27b0be76f452c3b8;hp=3bd5e6cef5addca2a46f23de0f07979c1152d5dc;hb=8ca728cacd8b699da2f906aa02303b93415d7458;hpb=07fb4eb28539b53578b1421e348c12c921d180f1

diff --git a/indirect.xs b/indirect.xs
index 3bd5e6c..1cdd3eb 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -583,7 +583,7 @@ STATIC OP *indirect_ck_const(pTHX_ OP *o) {
      * when we already had a match because __PACKAGE__ can only appear in
      * direct method calls ("new __PACKAGE__" is a syntax error). */
     len = SvCUR(sv);
-    if (len == HvNAMELEN_get(PL_curstash)
+    if (len == (STRLEN) HvNAMELEN_get(PL_curstash)
         && memcmp(SvPVX(sv), HvNAME_get(PL_curstash), len) == 0) {
      STRLEN pos_pkg;
      SV    *pkg = sv_newmortal();