From: Vincent Pit <vince@profvince.com>
Date: Tue, 19 Aug 2014 00:08:44 +0000 (+0200)
Subject: Silence a sign-compare warning
X-Git-Tag: rt92806~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=8ca728cacd8b699da2f906aa02303b93415d7458

Silence a sign-compare warning
---

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();