summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2018-11-23 11:49:03 -0500
committerJames E Keenan <jkeenan@cpan.org>2018-11-25 20:57:50 -0500
commit3a56a99d41d6fbc76d3de73c647f90cf10ea1992 (patch)
treecef66652a36bed1c2ca8f0ab5665547924383eba /pp_sys.c
parent41b654eb4e6464cf37e5ee236d2800e73948778c (diff)
downloadperl-3a56a99d41d6fbc76d3de73c647f90cf10ea1992.tar.gz
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)
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c3
1 files changed, 1 insertions, 2 deletions
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