diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-09-11 15:22:45 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-01 08:10:21 +0000 |
| commit | cb50f42d44feb5486b1014e87f10579f0b7cddbf (patch) | |
| tree | a6287078174bb8819276c355a6b5d93123e8837a /dump.c | |
| parent | 0d1032abc6ecb94ee2955275dc38423a9d34216c (diff) | |
| download | perl-cb50f42d44feb5486b1014e87f10579f0b7cddbf.tar.gz | |
Re: sv_2pv_flags and ROK and UTF8 flags
Message-ID: <lSCg9gzkgymX092yn@efn.org>
p4raw-id: //depot/perl@17947
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -768,7 +768,7 @@ static struct { char type; char *name; } magic_names[] = { { PERL_MAGIC_taint, "taint(t)" }, { PERL_MAGIC_uvar_elem, "uvar_elem(v)" }, { PERL_MAGIC_vec, "vec(v)" }, - { PERL_MAGIC_vstring, "v-string(V)" }, + { PERL_MAGIC_vstring, "vstring(V)" }, { PERL_MAGIC_substr, "substr(x)" }, { PERL_MAGIC_defelem, "defelem(y)" }, { PERL_MAGIC_ext, "ext(~)" }, @@ -842,13 +842,15 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxne if (mg->mg_flags) { Perl_dump_indent(aTHX_ level, file, " MG_FLAGS = 0x%02X\n", mg->mg_flags); - if (mg->mg_flags & MGf_TAINTEDDIR) + if (mg->mg_type == PERL_MAGIC_envelem && + mg->mg_flags & MGf_TAINTEDDIR) Perl_dump_indent(aTHX_ level, file, " TAINTEDDIR\n"); if (mg->mg_flags & MGf_REFCOUNTED) Perl_dump_indent(aTHX_ level, file, " REFCOUNTED\n"); if (mg->mg_flags & MGf_GSKIP) Perl_dump_indent(aTHX_ level, file, " GSKIP\n"); - if (mg->mg_flags & MGf_MINMATCH) + if (mg->mg_type == PERL_MAGIC_regex_global && + mg->mg_flags & MGf_MINMATCH) Perl_dump_indent(aTHX_ level, file, " MINMATCH\n"); } if (mg->mg_obj) { |