diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-19 17:37:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-19 17:37:26 +0000 |
| commit | ff270d3ac16fa8d51fc9a0dc2660901c9ee1e54f (patch) | |
| tree | 5c40714014be14b034812889962b38ad4f47a1ac /sv.c | |
| parent | 34fce102e06d66916d6dc1e5501e4ed517024fcf (diff) | |
| download | perl-ff270d3ac16fa8d51fc9a0dc2660901c9ee1e54f.tar.gz | |
Protect sv_dump() from being included unless DEBUGGING,
as noticed by Ilya.
p4raw-id: //depot/perl@13098
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -300,10 +300,12 @@ S_visit(pTHX_ SVFUNC_t f) static void do_report_used(pTHX_ SV *sv) { +#ifdef DEBUGGING if (SvTYPE(sv) != SVTYPEMASK) { PerlIO_printf(Perl_debug_log, "****\n"); sv_dump(sv); } +#endif } /* @@ -317,7 +319,9 @@ Dump the contents of all SVs not yet freed. (Debugging aid). void Perl_sv_report_used(pTHX) { +#ifdef DEBUGGING visit(do_report_used); +#endif } /* called by sv_clean_objs() for each live SV */ |