diff options
author | Aaron Crane <arc@cpan.org> | 2017-10-14 09:53:41 +0200 |
---|---|---|
committer | Aaron Crane <arc@cpan.org> | 2017-10-21 16:53:08 +0100 |
commit | 4fda7c0cc8689dd812e767bd25a3a7a5bfee7b61 (patch) | |
tree | ee333741328f68457821a033cea9aca854a5dfe6 /pp_ctl.c | |
parent | 00b6a411576ca1b1610e88c2ce54bb7278e94abc (diff) | |
download | perl-4fda7c0cc8689dd812e767bd25a3a7a5bfee7b61.tar.gz |
pp_ctl.c: simplify cpp conditionals
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -4053,8 +4053,7 @@ S_require_file(pTHX_ SV *sv) continue; sv_setpv(namesv, unixdir); sv_catpv(namesv, unixname); -#else -# ifdef __SYMBIAN32__ +#elif defined(__SYMBIAN32__) if (PL_origfilename[0] && PL_origfilename[1] == ':' && !(dir[0] && dir[1] == ':')) @@ -4066,7 +4065,7 @@ S_require_file(pTHX_ SV *sv) Perl_sv_setpvf(aTHX_ namesv, "%s\\%s", dir, name); -# else +#else /* The equivalent of Perl_sv_setpvf(aTHX_ namesv, "%s/%s", dir, name); but without the need to parse the format string, or @@ -4093,7 +4092,6 @@ S_require_file(pTHX_ SV *sv) SvCUR_set(namesv, dirlen + len + 1); SvPOK_on(namesv); } -# endif #endif TAINT_PROPER(op_name); tryname = SvPVX_const(namesv); |