op.c:cv_ckproto_len_flags: do null checks first

Checking local variables for nullness is faster than calling ckWARN_d,
which involves a function call.

diff --git a/op.c b/op.c
index 7b11d1e..f966018 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6816,10 +6816,10 @@ Perl_cv_ckproto_len_flags(pTHX_ const CV *cv, const GV *gv, const char *p,
 
     PERL_ARGS_ASSERT_CV_CKPROTO_LEN_FLAGS;
 
-    if (!ckWARN_d(WARN_PROTOTYPE))
+    if (p == NULL && cvp == NULL)
        return;
 
-    if (p == NULL && cvp == NULL)
+    if (!ckWARN_d(WARN_PROTOTYPE))
        return;
 
     if (p && cvp) {