silence another signed/unsigned mismatch warning

p4raw-id: //depot/perl@18357

diff --git a/op.c b/op.c
index 46347da..2368434 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3108,7 +3108,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
                             curop->op_type == OP_PADANY)
                    {
                        if (PAD_COMPNAME_GEN(curop->op_targ)
-                                                   == PL_generation)
+                                                   == (STRLEN)PL_generation)
                            break;
                        PAD_COMPNAME_GEN(curop->op_targ)
                                                        = PL_generation;