From: Steve Hay <SteveHay@planit.com>
Date: Wed, 20 Jul 2005 13:08:54 +0000 (+0000)
Subject: Silence Win32 compiler warning (signed/unsigned mismatch)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=624f69f59cd52940ed1e8dbd592bbf1daf38f8e2;p=p5sagit%2Fp5-mst-13.2.git

Silence Win32 compiler warning (signed/unsigned mismatch)

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

diff --git a/pad.c b/pad.c
index 58a37e6..a84274a 100644
--- a/pad.c
+++ b/pad.c
@@ -541,7 +541,7 @@ Perl_pad_check_dup(pTHX_ const char *name, bool is_our, const HV *ourstash)
 	    {
 		Perl_warner(aTHX_ packWARN(WARN_MISC),
 		    "\"our\" variable %s redeclared", name);
-		if (off <= PL_comppad_name_floor)
+		if ((I32)off <= PL_comppad_name_floor)
 		    Perl_warner(aTHX_ packWARN(WARN_MISC),
 			"\t(Did you mean \"local\" instead of \"our\"?)\n");
 		break;