In perl.git, the branch nicholas/misc-tidyup has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d1c33b406158bae9d8a75d8b27a6c0e01396498c?hp=65c512c3519b68852f64f5e1293cebadee892115>
- Log ----------------------------------------------------------------- commit d1c33b406158bae9d8a75d8b27a6c0e01396498c Author: Nicholas Clark <[email protected]> Date: Tue Apr 17 18:32:46 2012 +0200 Remove dead MSDOS code from S_init_postdump_symbols(). The original MSDOS port of 3.0 and 4.0 was removed in 5.000, but its #ifdefs remained in the code. The djgpp port was added post 5.004, and djgpp defines both MSDOS and DJGPP. Hence this code, which was made conditional on MSDOS but *not* DJGPP by commit 91a64263ab3d9ea5 in Aug 2003 should instead have been removed, as it's dead. ----------------------------------------------------------------------- Summary of changes: perl.c | 5 ----- 1 files changed, 0 insertions(+), 5 deletions(-) diff --git a/perl.c b/perl.c index 7f6848e..5ddf87f 100644 --- a/perl.c +++ b/perl.c @@ -4194,11 +4194,6 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register if (!(s = strchr(old_var,'=')) || s == old_var) continue; -#if defined(MSDOS) && !defined(DJGPP) - *s = '\0'; - (void)strupr(old_var); - *s = '='; -#endif sv = newSVpv(s+1, 0); (void)hv_store(hv, old_var, s - old_var, sv, 0); if (env_is_not_environ) -- Perl5 Master Repository
