diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-16 23:03:42 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-16 23:03:42 +0000 |
| commit | 1ccdb7301362000755034d5e6a7e73f566973104 (patch) | |
| tree | 0fa142dae37f66fff801c799e2f2d0829fbdec0b /dump.c | |
| parent | 2e5b91de24d62e1e2bf0fd32a1d4d1d849cafc82 (diff) | |
| download | perl-1ccdb7301362000755034d5e6a7e73f566973104.tar.gz | |
Add a new flag SVprv_PCS_IMPORTED (which is a pseudonym for SVf_SCREAM)
to note when a proxy constant subroutine is copied. This allows us to
correctly set GvIMPORTED_CV_on() if the symbol is ever turned into a
real GV.
p4raw-id: //depot/perl@29566
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1385,8 +1385,12 @@ 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 && !isGV_with_GP(sv)) + if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv)) { + if (SvPCS_IMPORTED(sv)) + sv_catpv(d, "PCS_IMPORTED,"); + else sv_catpv(d, "SCREAM,"); + } switch (type) { case SVt_PVCV: |