RT #63790: &{PL_sv_yes} corrupted mark stack

Calling a subref whose value was PL_sv_yes, and without args,
failed to pop an entry off the mark stack

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index f4d79dc5da..7f80fa5296 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2764,6 +2764,8 @@ PP(pp_entersub)
 	if (sv == &PL_sv_yes) {		/* unfound import, ignore */
 	    if (hasargs)
 		SP = PL_stack_base + POPMARK;
+	    else
+		(void)POPMARK;
 	    RETURN;
 	}
 	SvGETMAGIC(sv);