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