This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use only unsigned ints for comparisons to PL_breakable_sub_generation
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 Nov 2008 11:12:56 +0000 (11:12 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 Nov 2008 11:12:56 +0000 (11:12 +0000)
p4raw-id: //depot/perl@34880

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