summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorAaron Crane <arc@cpan.org>2017-10-14 09:53:41 +0200
committerAaron Crane <arc@cpan.org>2017-10-21 16:53:08 +0100
commit4fda7c0cc8689dd812e767bd25a3a7a5bfee7b61 (patch)
treeee333741328f68457821a033cea9aca854a5dfe6 /pp_ctl.c
parent00b6a411576ca1b1610e88c2ce54bb7278e94abc (diff)
downloadperl-4fda7c0cc8689dd812e767bd25a3a7a5bfee7b61.tar.gz
pp_ctl.c: simplify cpp conditionals
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 249c83c7d4..ee96688df4 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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);