Silence a sign-compare warning

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 3bd5e6cef5addca2a46f23de0f07979c1152d5dc..1cdd3eb090c2e52d8abdcd1c27b0be76f452c3b8 100644 (file)
--- 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();