summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2018-11-23 13:45:25 -0500
committerJames E Keenan <jkeenan@cpan.org>2018-11-25 20:57:08 -0500
commit41b654eb4e6464cf37e5ee236d2800e73948778c (patch)
treee7c7305fdb68e83429c79d32a4dd135504d43ae1 /sv.c
parent42aeee0b5e6db057f7ff946e41a33da5a0074724 (diff)
downloadperl-41b654eb4e6464cf37e5ee236d2800e73948778c.tar.gz
Eliminate empty conditional branch
Per: https://lgtm.com/projects/g/Perl/perl5/alerts/?mode=tree&ruleFocus=2154840803 For: RT 133686 (partial)
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/sv.c b/sv.c
index b10f205033..826228bc92 100644
--- a/sv.c
+++ b/sv.c
@@ -5164,9 +5164,8 @@ S_sv_uncow(pTHX_ SV * const sv, const U32 flags)
SvCUR_set(sv, cur);
*SvEND(sv) = '\0';
}
- if (len) {
- } else {
- unshare_hek(SvSHARED_HEK_FROM_PV(pvx));
+ if (! len) {
+ unshare_hek(SvSHARED_HEK_FROM_PV(pvx));
}
#ifdef DEBUGGING
if (DEBUG_C_TEST)