Change 34880 by [EMAIL PROTECTED] on 2008/11/18 11:12:56
Use only unsigned ints for comparisons to PL_breakable_sub_generation
Affected files ...
... //depot/perl/pp_ctl.c#715 edit
Differences ...
==== //depot/perl/pp_ctl.c#715 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#714~34879~ 2008-11-18 03:09:47.000000000 -0800
+++ perl/pp_ctl.c 2008-11-18 03:12:56.000000000 -0800
@@ -3653,7 +3653,7 @@
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 @@
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
End of Patch.
