From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 18 Nov 2008 11:12:56 +0000 (+0000)
Subject: Use only unsigned ints for comparisons to PL_breakable_sub_generation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e421c0cc81770dcdf2aaaa0648195457e165c6c;p=p5sagit%2Fp5-mst-13.2.git

Use only unsigned ints for comparisons to PL_breakable_sub_generation

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

diff --git a/pp_ctl.c b/pp_ctl.c
index a29c1f4..f555776 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3653,7 +3653,7 @@ PP(pp_entereval)
     register PERL_CONTEXT *cx;
     SV *sv;
     const I32 gimme = GIMME_V;
-    const I32 was = PL_breakable_sub_generation;
+    const U32 was = PL_breakable_sub_generation;
     char tbuf[TYPE_DIGITS(long) + 12];
     char *tmpbuf = tbuf;
     char *safestr;
@@ -3731,7 +3731,7 @@ PP(pp_entereval)
     PUTBACK;
     ok = doeval(gimme, NULL, runcv, seq);
     if ((PERLDB_LINE || PERLDB_SAVESRC)
-	&& was != (U32)PL_breakable_sub_generation /* Some subs defined here. */
+	&& was != PL_breakable_sub_generation /* Some subs defined here. */
 	&& ok) {
 	/* Just need to change the string in our writable scratch buffer that
 	   will be used at scope exit to delete this eval's "file" name, to