From 1ccdb7301362000755034d5e6a7e73f566973104 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 16 Dec 2006 23:03:42 +0000 Subject: 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 --- dump.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 4622fb9b88..eefa4773ad 100644 --- a/dump.c +++ b/dump.c @@ -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: -- cgit v1.2.1