summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-11-06 14:31:38 +0000
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-11-06 14:31:38 +0000
commit199100c871a030cc44240072644abe9aab66bc02 (patch)
treeb88def55f8e42b978120f498a2e4197260d5db23 /pp_ctl.c
parent554b3ecafd2a8f619792c82298bc621b9e48a923 (diff)
downloadperl-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 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 532fda3910..d4d2e2f4a2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2186,7 +2186,7 @@ int gimme;
CvPADLIST(compcv) = comppadlist;
if (saveop->op_type != OP_REQUIRE)
- CvOUTSIDE(compcv) = caller ? (CV*)SvREFCNT_inc(caller) : 0;
+ CvOUTSIDE(compcv) = (CV*)SvREFCNT_inc(caller);
SAVEFREESV(compcv);