diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 20:18:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 20:18:25 +0000 |
| commit | 4a4c6fe390894386eeb2fdd5dfec0acaeed13c9b (patch) | |
| tree | 9236e2bc75164d23f3a2f5487b3a8d89cadab87e /sv.c | |
| parent | ddcfe0f24df1dbafe33d35cb93d16d3b7a850180 (diff) | |
| download | perl-4a4c6fe390894386eeb2fdd5dfec0acaeed13c9b.tar.gz | |
For DEBUGGING threaded builds.
p4raw-id: //depot/perl@15306
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -9988,6 +9988,12 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, #endif PL_encoding = sv_dup(proto_perl->Iencoding, param); +#ifdef DEBUGGING + sv_setpvn(PERL_DEBUG_PAD(0), "", 0); /* For regex debugging. */ + sv_setpvn(PERL_DEBUG_PAD(1), "", 0); + sv_setpvn(PERL_DEBUG_PAD(2), "", 0); +#endif + /* Clone the regex array */ PL_regex_padav = newAV(); { |