From 1979170bfeba87d234d4d34023c2ea5feeb22f48 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 24 May 2011 10:59:01 +0100 Subject: Test that SvFLAGS() & SVpad_NAME is SVpad_NAME, not just non-zero. In Perl_find_rundefsv() and PAD_COMPNAME_FLAGS_isOUR(), replace longhand flags test with SvPAD_OUR(). --- dump.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index d8907c964e..564b198914 100644 --- a/dump.c +++ b/dump.c @@ -1601,10 +1601,11 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo (int)(PL_dumpindent*level), "", (IV)SvREFCNT(sv), (int)(PL_dumpindent*level), ""); - if (!(flags & SVpad_NAME && (type == SVt_PVMG || type == SVt_PVNV))) { + if (!((flags & SVpad_NAME) == SVpad_NAME + && (type == SVt_PVMG || type == SVt_PVNV))) { if (flags & SVs_PADSTALE) sv_catpv(d, "PADSTALE,"); } - if (!(flags & SVpad_NAME && type == SVt_PVMG)) { + if (!((flags & SVpad_NAME) == SVpad_NAME && type == SVt_PVMG)) { if (flags & SVs_PADTMP) sv_catpv(d, "PADTMP,"); if (flags & SVs_PADMY) sv_catpv(d, "PADMY,"); } @@ -1728,7 +1729,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo PerlIO_putc(file, '\n'); } - if ((type == SVt_PVNV || type == SVt_PVMG) && SvFLAGS(sv) & SVpad_NAME) { + if ((type == SVt_PVNV || type == SVt_PVMG) + && (SvFLAGS(sv) & SVpad_NAME) == SVpad_NAME) { Perl_dump_indent(aTHX_ level, file, " COP_LOW = %"UVuf"\n", (UV) COP_SEQ_RANGE_LOW(sv)); Perl_dump_indent(aTHX_ level, file, " COP_HIGH = %"UVuf"\n", -- cgit v1.2.1