toke.c: Allocate __SUB__ as a baseop if possible

__SUB__ is a baseop, but it gets converted to a const op (a svop)
later if the sub is not clonable.  Since a svop is bigger, we allo-
cate it as a larger size initially.  But if we already know that
the sub is clonable by the time we see __SUB__, we can go with the
smaller op size.

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: