diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 01:34:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 01:34:53 +0000 |
| commit | 48c036b1eb8f866b948f33704ee6152323a5aad9 (patch) | |
| tree | 6e91e012efd9b99283cda0a0e070452f8d41eb8a /dump.c | |
| parent | ee580363108be8ac33155650c6c18d2e5cf051f3 (diff) | |
| download | perl-48c036b1eb8f866b948f33704ee6152323a5aad9.tar.gz | |
[win32] merge change#905 from maintbranch, minor fixes to get
clean build+test on Solaris
p4raw-link: @905 on //depot/maint-5.004/perl: 15e73149a8419f18d739227762eab108524cec56
p4raw-id: //depot/win32/perl@976
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -361,7 +361,7 @@ dump_pm(PMOP *pm) } if (pm->op_pmflags || (pm->op_pmregexp && pm->op_pmregexp->check_substr)) { SV *tmpsv = newSVpv("", 0); - if (pm->op_pmflags & PMf_USED) + if (pm->op_pmdynflags & PMdf_USED) sv_catpv(tmpsv, ",USED"); if (pm->op_pmflags & PMf_ONCE) sv_catpv(tmpsv, ",ONCE"); @@ -381,6 +381,8 @@ dump_pm(PMOP *pm) sv_catpv(tmpsv, ",GLOBAL"); if (pm->op_pmflags & PMf_CONTINUE) sv_catpv(tmpsv, ",CONTINUE"); + if (pm->op_pmflags & PMf_TAINTMEM) + sv_catpv(tmpsv, ",TAINTMEM"); if (pm->op_pmflags & PMf_EVAL) sv_catpv(tmpsv, ",EVAL"); dump("PMFLAGS = (%s)\n", SvCUR(tmpsv) ? SvPVX(tmpsv) + 1 : ""); |