diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-08-28 23:12:07 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-28 23:12:07 -0700 |
commit | 1d5051822fbc9237cf978c26ef52b1f38dc5b2f6 (patch) | |
tree | 50ef59466b10d63f5a1a5a154d16eaa3f288d187 /inline.h | |
parent | fa3234e35dd14e0ea7deee9ca2c17003ddba0379 (diff) | |
download | perl-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.h | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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; } } |