1 files changed, 3 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index f8af55b7cb..d644d9393e 100644
--- a/toke.c
+++ b/toke.c
@@ -6946,7 +6946,9 @@ Perl_yylex(pTHX)
 	}
 
 	case KEY___SUB__:
-	    FUN0OP(newPVOP(OP_RUNCV,0,NULL));
+	    FUN0OP(CvCLONE(PL_compcv)
+			? newOP(OP_RUNCV, 0)
+			: newPVOP(OP_RUNCV,0,NULL));
 
 	case KEY_AUTOLOAD:
 	case KEY_DESTROY: