1 files changed, 1 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 9ddf9171ac..991f51412a 100644
--- a/perl.c
+++ b/perl.c
@@ -1145,6 +1145,7 @@ CV*
 perl_get_cv(char *name, I32 create)
 {
     GV* gv = gv_fetchpv(name, create, SVt_PVCV);
+    /* XXX unsafe for threads if eval_owner isn't held */
     if (create && !GvCVu(gv))
     	return newSUB(start_subparse(FALSE, 0),
 		      newSVOP(OP_CONST, 0, newSVpv(name,0)),