diff options
| author | John Peacock <jpeacock@rowman.com> | 2007-10-02 01:28:31 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-02 11:56:28 +0000 |
| commit | d1029faac9d1305e60db4bf8c9ec1552b40d4f64 (patch) | |
| tree | 6c23eb57975ab4e3d36ed33353f43fe19106180a /dump.c | |
| parent | d91ed1da0761be78f6c84257e79636bc2a7a1b8f (diff) | |
| download | perl-d1029faac9d1305e60db4bf8c9ec1552b40d4f64.tar.gz | |
was Re: Freeze ?
Message-ID: <47020F3F.9070604@havurah-software.org>
p4raw-id: //depot/perl@32003
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1879,7 +1879,10 @@ void Perl_sv_dump(pTHX_ SV *sv) { dVAR; - do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0); + if (SvROK(sv)) + do_sv_dump(0, Perl_debug_log, sv, 0, 4, 0, 0); + else + do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0); } int |