Change Perl_newCONSTSUB() so that a NULL sv generates an empty list return.

Don't call DESTROY if it's a constant subroutine.

1 files changed, 3 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 912f51756b..12ca453eb9 100644
--- a/sv.c
+++ b/sv.c
@@ -5656,6 +5656,9 @@ Perl_sv_clear(pTHX_ register SV *const sv)
 		stash = SvSTASH(sv);
 		destructor = StashHANDLER(stash,DESTROY);
 		if (destructor
+			/* A constant subroutine can have no side effects, so
+			   don't bother calling it.  */
+			&& !CvCONST(destructor)
 			/* Don't bother calling an empty destructor */
 			&& (CvISXSUB(destructor)
 			|| CvSTART(destructor)->op_next->op_type != OP_LEAVESUB))