This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op_dump() - remove extra indentation from PMOP
authorDavid Mitchell <davem@iabyn.com>
Sat, 12 Nov 2016 08:05:53 +0000 (08:05 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sat, 12 Nov 2016 16:15:09 +0000 (16:15 +0000)
commit8efda520355126b24fb7c81c753eb2028dcc43bd
treee9a95c1e6d605973f58fadd365cb9c017af2c2c0
parente97ca23069de91e6fba421ba7674397837455073
op_dump() - remove extra indentation from PMOP

When dumping a PMOP, it displays the PMOP-specific fields with
an extra set of braces and level of indentation, e.g.

    {
        TYPE = match  ===> 1
        FLAGS = (VOID,SLABBED)
        PRIVATE = (RTIME)
        {
            PMf_PRE /abc/ (RUNTIME)
            PMFLAGS = (SCANFIRST,ALL)
        }
    }

This is visually confusing, because child ops are shown in the same way.
This commit removes the extra indentation:

    {
        TYPE = match  ===> 1
        FLAGS = (VOID,SLABBED)
        PRIVATE = (RTIME)
        PMf_PRE /abc/ (RUNTIME)
        PMFLAGS = (SCANFIRST,ALL)
    }
dump.c