diff options
| author | Eric Brine <ikegami@adaelis.com> | 2012-12-05 02:48:56 -0500 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-01-03 21:21:53 -0700 |
| commit | d2898d73a1ac5ef072641f07c70d9334e368d58a (patch) | |
| tree | e869b7d7a54deb5c694702ce26b44c53997a84e6 /perl.c | |
| parent | d2687c9864ee55010b4c40a464ee830f0bdda6e8 (diff) | |
| download | perl-d2898d73a1ac5ef072641f07c70d9334e368d58a.tar.gz | |
Collapse "if(a){b}else{b}" to "b"
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 16 |
1 files changed, 6 insertions, 10 deletions
@@ -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 { |