From: Eric Brine <ikegami@adaelis.com>
Date: Wed, 5 Dec 2012 07:48:56 +0000 (-0500)
Subject: Collapse "if(a){b}else{b}" to "b"
X-Git-Tag: v5.17.8~127
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/d2898d73a1ac5ef072641f07c70d9334e368d58a?hp=d2687c9864ee55010b4c40a464ee830f0bdda6e8

Collapse "if(a){b}else{b}" to "b"
---

diff --git a/perl.c b/perl.c
index 0e56b88..c7e1d54 100644
--- a/perl.c
+++ b/perl.c
@@ -4483,16 +4483,12 @@ S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags)
     PERL_ARGS_ASSERT_MAYBERELOCATE;
     assert(len > 0);
 
-	if (len) {
-	    /* I am not convinced that this is valid when PERLLIB_MANGLE is
-	       defined to so something (in os2/os2.c), but the code has been
-	       this way, ignoring any possible changed of length, since
-	       760ac839baf413929cd31cc32ffd6dba6b781a81 (5.003_02) so I'll leave
-	       it be.  */
-	    libdir = newSVpvn(PERLLIB_MANGLE(dir, len), len);
-	} else {
-	    libdir = newSVpv(PERLLIB_MANGLE(dir, 0), 0);
-	}
+    /* I am not convinced that this is valid when PERLLIB_MANGLE is
+       defined to so something (in os2/os2.c), but the code has been
+       this way, ignoring any possible changed of length, since
+       760ac839baf413929cd31cc32ffd6dba6b781a81 (5.003_02) so I'll leave
+       it be.  */
+    libdir = newSVpvn(PERLLIB_MANGLE(dir, len), len);
 
 #ifdef VMS
     {