diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-08 12:08:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-08 12:08:17 +0000 |
| commit | 534825c439e9bf017f3cdaf88d284d58d5eac6bd (patch) | |
| tree | 1884c58f0eef7d68e5cd924efde5a05d8c8b6e0b /perl.c | |
| parent | e23b9d0f648442d8e275530c0bf8b0027cee41d1 (diff) | |
| download | perl-534825c439e9bf017f3cdaf88d284d58d5eac6bd.tar.gz | |
add missing locks for op refcounts
p4raw-id: //depot/perl@5610
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -64,8 +64,12 @@ static I32 read_e_script(pTHXo_ int idx, SV *buf_sv, int maxlen); PERL_SET_INTERP(my_perl); \ INIT_THREADS; \ ALLOC_THREAD_KEY; \ + PERL_SET_THX(my_perl); \ + OP_REFCNT_INIT; \ + } \ + else { \ + PERL_SET_THX(my_perl); \ } \ - PERL_SET_THX(my_perl); \ } STMT_END # else # define INIT_TLS_AND_INTERP \ |