From 3a56a99d41d6fbc76d3de73c647f90cf10ea1992 Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Fri, 23 Nov 2018 11:49:03 -0500 Subject: Remove 1 comparison whose result is always the same. Per: https://lgtm.com/projects/g/Perl/perl5/alerts/?mode=tree&ruleFocus=2154840804 For: RT 133686 (partial) --- pp_sys.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'pp_sys.c') diff --git a/pp_sys.c b/pp_sys.c index ab28ed65d9..5dc20b14f0 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -3824,8 +3824,7 @@ PP(pp_readlink) len = readlink(tmps, buf, sizeof(buf) - 1); if (len < 0) RETPUSHUNDEF; - if (len != -1) - buf[len] = '\0'; + buf[len] = '\0'; PUSHp(buf, len); RETURN; #else -- cgit v1.2.1