Change 33596 by [EMAIL PROTECTED] on 2008/03/29 07:08:50
Fix compiler warning about comparison of pointer types.
Affected files ...
... //depot/perl/sv.c#1531 edit
Differences ...
==== //depot/perl/sv.c#1531 (text) ====
Index: perl/sv.c
--- perl/sv.c#1530~33595~ 2008-03-28 17:30:42.000000000 -0700
+++ perl/sv.c 2008-03-29 00:08:50.000000000 -0700
@@ -516,8 +516,10 @@
do_clean_all(pTHX_ SV *const sv)
{
dVAR;
- if (sv == PL_fdpid || sv == PL_strtab) /* don't clean pid table and strtab
*/
+ if (sv == (SV*) PL_fdpid || sv == (SV *)PL_strtab) {
+ /* don't clean pid table and strtab */
return;
+ }
DEBUG_D((PerlIO_printf(Perl_debug_log, "Cleaning loops: SV at
0x%"UVxf"\n", PTR2UV(sv)) ));
SvFLAGS(sv) |= SVf_BREAK;
SvREFCNT_dec(sv);
End of Patch.
