diff options
| author | Jan Dubois <jand@activestate.com> | 1998-11-23 01:48:11 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-27 14:20:12 +0000 |
| commit | 3967c732803d47eb9e3dd99812f099d7f15ec379 (patch) | |
| tree | 14328844c7ff6ef1b97bc430c33484228b95855e /perl.c | |
| parent | 73f0cc2d7df5b14dbea315ed9c6a2e3ae1fb82e6 (diff) | |
| download | perl-3967c732803d47eb9e3dd99812f099d7f15ec379.tar.gz | |
add ext/Devel/Peek
Message-ID: <36589ec9.49964585@smtp1.ibm.net>
Subject: [PATCH 5.005_53] Devel::Peek integration
p4raw-id: //depot/perl@2322
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1849,6 +1849,7 @@ init_interp(void) PL_curcopdb = NULL; \ PL_dbargs = 0; \ PL_dlmax = 128; \ + PL_dumpindent = 4; \ PL_laststatval = -1; \ PL_laststype = OP_STAT; \ PL_maxscream = -1; \ @@ -1886,7 +1887,7 @@ init_interp(void) # undef PERLVAR # undef PERLVARI # undef PERLVARIC -# else +# else # define PERLVAR(var,type) # define PERLVARI(var,type,init) PL_##var = init; # define PERLVARIC(var,type,init) PL_##var = init; @@ -2810,6 +2811,7 @@ init_main_thread() *SvEND(PL_thrsv) = '\0'; /* in the trailing_nul field */ thr->oursv = PL_thrsv; PL_chopset = " \n-"; + PL_dumpindent = 4; MUTEX_LOCK(&PL_threads_mutex); PL_nthreads++; |