diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-03-09 13:49:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 14:38:56 +0000 |
| commit | 04932ac8f7d72810cce59c52976ab33010e88b99 (patch) | |
| tree | bc6507fa14063a22f27503c74bc21bfb9ed56af1 /dump.c | |
| parent | 1dfe7606714789cb685cd524877388fe1e9008b4 (diff) | |
| download | perl-04932ac8f7d72810cce59c52976ab33010e88b99.tar.gz | |
Re: [ PATCH perl@8956 ] new debug option -DR shows ref counts
Message-Id: <200103091349.NAA16617@tiree.fdgroup.co.uk>
p4raw-id: //depot/perl@9087
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -194,6 +194,11 @@ Perl_sv_peek(pTHX_ SV *sv) sv_catpv(t, "("); unref++; } + else if (DEBUG_R_TEST && SvREFCNT(sv) > 1) { + sv_catpvf(t, "<%u>", SvREFCNT(sv)); + } + + if (SvROK(sv)) { sv_catpv(t, "\\"); if (SvCUR(t) + unref > 10) { |