Optimize away calls to empty DESTROY methods

1 files changed, 5 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index d944e2f6fc..ae728b1f27 100644
--- a/sv.c
+++ b/sv.c
@@ -5655,7 +5655,11 @@ Perl_sv_clear(pTHX_ register SV *const sv)
 		CV* destructor;
 		stash = SvSTASH(sv);
 		destructor = StashHANDLER(stash,DESTROY);
-		if (destructor) {
+		if (destructor
+			/* Don't bother calling an empty destructor */
+			&& (CvISXSUB(destructor)
+			|| CvSTART(destructor)->op_next->op_type != OP_LEAVESUB))
+		{
 		    SV* const tmpref = newRV(sv);
 	            SvREADONLY_on(tmpref);   /* DESTROY() could be naughty */
 		    ENTER;