Add Perl_ck_warner_d(), which combines Perl_ckwarn_d() and Perl_warner().

Replace ckWARN_d{,2,3,4}() && Perl_warner() with it, which trades reduced code
size for 1 more function call if warnings are not enabled.

1 files changed, 1 insertions, 2 deletions

diff --git a/dump.c b/dump.c
index fae2d11546..70efde4090 100644
--- a/dump.c
+++ b/dump.c
@@ -2016,8 +2016,7 @@ Perl_runops_debug(pTHX)
 {
     dVAR;
     if (!PL_op) {
-	if (ckWARN_d(WARN_DEBUGGING))
-	    Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), "NULL OP IN RUN");
+	Perl_ck_warner_d(aTHX_ packWARN(WARN_DEBUGGING), "NULL OP IN RUN");
 	return 0;
     }