X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=70efde4090547a2269631b7fd5208f09c1edd6fd;hb=352e1c09cf09498d4917c120c2055943a4301c0a;hp=fae2d115465e6d9193755a99ef15d07b890d183f;hpb=28eb953d1558a268eaab7eac243c13126fb02a10;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index fae2d11..70efde4 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;
     }