summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-08-28 23:12:07 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-08-28 23:12:07 -0700
commit1d5051822fbc9237cf978c26ef52b1f38dc5b2f6 (patch)
tree50ef59466b10d63f5a1a5a154d16eaa3f288d187 /inline.h
parentfa3234e35dd14e0ea7deee9ca2c17003ddba0379 (diff)
downloadperl-1d5051822fbc9237cf978c26ef52b1f38dc5b2f6.tar.gz
inline.h: Avoid redundant ckWARN call
ckWARN calls Perl_ckwarn. So does Perl_ck_warner. So there is no need to use both.
Diffstat (limited to 'inline.h')
-rw-r--r--inline.h4
1 files changed, 1 insertions, 3 deletions
diff --git a/inline.h b/inline.h
index 86deaf5175..066edf1bda 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;
}
}