diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-12-16 16:54:06 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-12-16 16:54:06 +0000 |
commit | 2e5b91de24d62e1e2bf0fd32a1d4d1d849cafc82 (patch) | |
tree | 26bb2662cefa3272e2d2d365d577829fa36fbd2f /dump.c | |
parent | 702119bc891cbff15043348ab2eab5c9d600e0be (diff) | |
download | perl-2e5b91de24d62e1e2bf0fd32a1d4d1d849cafc82.tar.gz |
Split out the use of SVp_SCREAM for GVs with GPs into a new symbolic
flag SVpgv_GP, and use this in isGV_with_GP_on/off.
p4raw-id: //depot/perl@29565
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1385,7 +1385,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (flags & SVp_IOK) sv_catpv(d, "pIOK,"); if (flags & SVp_NOK) sv_catpv(d, "pNOK,"); if (flags & SVp_POK) sv_catpv(d, "pPOK,"); - if (flags & SVp_SCREAM && type != SVt_PVHV) + if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv)) sv_catpv(d, "SCREAM,"); switch (type) { |