From 1d5051822fbc9237cf978c26ef52b1f38dc5b2f6 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 28 Aug 2013 23:12:07 -0700
Subject: [PATCH] inline.h: Avoid redundant ckWARN call

ckWARN calls Perl_ckwarn.  So does Perl_ck_warner.  So there is no
need to use both.
---
 inline.h | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/inline.h b/inline.h
index 86deaf5..066edf1 100644
--- a/inline.h
+++ b/inline.h
@@ -250,11 +250,9 @@ S_is_safe_syscall(pTHX_ SV *pv, const char *what, const char *op_name) {
         char *null_at;
         if (UNLIKELY((null_at = (char *)memchr(p, 0, SvCUR(pv)-1)) != NULL)) {
                 SETERRNO(ENOENT, LIB_INVARG);
-                if (ckWARN(WARN_SYSCALLS)) {
-                    Perl_ck_warner(aTHX_ packWARN(WARN_SYSCALLS),
+                Perl_ck_warner(aTHX_ packWARN(WARN_SYSCALLS),
                                    "Invalid \\0 character in %s for %s: %s\\0%s",
                                    what, op_name, p, null_at+1);
-                }
                 return FALSE;
         }
     }
-- 
2.7.4