Steve Hay wrote:
> ==== //depot/perl/mg.c#316 - C:\p5p\bleadperl\mg.c ====
> @@ -145,7 +145,7 @@
> Perl_mg_get(pTHX_ SV *sv)
> {
> const I32 mgs_ix = SSNEW(sizeof(MGS));
> - const bool was_temp = SvTEMP(sv);
> + const bool was_temp = (const bool)SvTEMP(sv);
I'd drop the const here.
> ==== //depot/perl/util.c#440 - C:\p5p\bleadperl\util.c ====
> @@ -2816,7 +2816,7 @@
> if (strEQ(scriptname, "-"))
> dosearch = 0;
> if (dosearch) { /* Look in '.' first. */
> - char *cur = scriptname;
> + char *cur = (char *)scriptname;
I'd rather add a const.
const char *cur = scriptname;
Otherwise, seems applicable :)
