diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:31:38 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:31:38 +0000 |
commit | 199100c871a030cc44240072644abe9aab66bc02 (patch) | |
tree | b88def55f8e42b978120f498a2e4197260d5db23 /op.c | |
parent | 554b3ecafd2a8f619792c82298bc621b9e48a923 (diff) | |
download | perl-199100c871a030cc44240072644abe9aab66bc02.tar.gz |
Per-thread magicals now stored in their own thr->magicals and keyed
more directly. cvcache and oursv become ordinary struct thread
fields instead of #defined thr->Tfoo ones. SvREFCNT_inc now checks
for 0 again. Main thread initialisation done by new function
init_main_thread instead of (now fixed) new_struct_thread.
p4raw-id: //depot/perl@205
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -247,7 +247,7 @@ pad_findlex(char *name, PADOFFSET newoff, U32 seq, CV* startcv, I32 cx_ix) warn("Variable \"%s\" will not stay shared", name); } } - av_store(comppad, newoff, oldsv ? SvREFCNT_inc(oldsv) : 0); + av_store(comppad, newoff, SvREFCNT_inc(oldsv)); return newoff; } } |