Replace a skip by a todo.

[p5sagit/p5-mst-13.2.git] / pad.c

diff --git a/pad.c b/pad.c
index dc220f5..0c00cff 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -22,9 +22,9 @@
 /*
 =head1 Pad Data Structures
 
-This file contains the functions that create and manipluate scratchpads,
+This file contains the functions that create and manipulate scratchpads,
 which are array-of-array data structures attached to a CV (ie a sub)
-and which store lexical variables and opcode temporay and per-thread
+and which store lexical variables and opcode temporary and per-thread
 values.
 
 =for apidoc m|AV *|CvPADLIST|CV *cv
@@ -1410,7 +1410,9 @@ Perl_cv_clone(pTHX_ CV *proto)
 #endif
     CvGV(cv)           = CvGV(proto);
     CvSTASH(cv)                = CvSTASH(proto);
+    OP_REFCNT_LOCK;
     CvROOT(cv)         = OpREFCNT_inc(CvROOT(proto));
+    OP_REFCNT_UNLOCK;
     CvSTART(cv)                = CvSTART(proto);
     CvOUTSIDE(cv)      = (CV*)SvREFCNT_inc(outside);
     CvOUTSIDE_SEQ(cv) = CvOUTSIDE_SEQ(proto);