From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 28 Dec 2002 02:16:51 +0000 (+0000)
Subject: silence another signed/unsigned mismatch warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92251a1e8193b999333214e50ccc11dd92ebe55e;p=p5sagit%2Fp5-mst-13.2.git

silence another signed/unsigned mismatch warning

p4raw-id: //depot/perl@18357
---

diff --git a/op.c b/op.c
index 46347da..2368434 100644
--- 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;