summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2015-07-17 17:53:54 -0500
committerCraig A. Berry <craigberry@mac.com>2015-07-23 17:54:06 -0500
commit786296d4896f80d498b17d1ae46dc0aa4fde5770 (patch)
tree606ff0159d0e36b4515204e7bbeac7db93ab7fe8 /pp_ctl.c
parent1f033515f88cb38a77368f249c75bc1a93c672e5 (diff)
downloadperl-786296d4896f80d498b17d1ae46dc0aa4fde5770.tar.gz
Evict PERLIO_IS_STDIO from top-level core files.
Configuring with perlio has been the only option since dd35fa16610 in 2011, first released in 5.16.0. Yet we have still have had all this dead code for stdio support cluttering up the sources and dulling the machetes of anyone who wants to do further work on perlio or someone (like me) who just stumbles on some code that looks like it needs fixing but isn't worth the time since the compiler will never see it. Leave a vestigial perlsdio.h since its presence is hard-coded in a number of places.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index ad6efc1950..d4f93b5082 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3517,11 +3517,7 @@ S_check_type_and_open(pTHX_ SV *name)
}
#endif
-#if !defined(PERLIO_IS_STDIO)
retio = PerlIO_openn(aTHX_ ":", PERL_SCRIPT_MODE, -1, 0, 0, NULL, 1, &name);
-#else
- retio = PerlIO_open(p, PERL_SCRIPT_MODE);
-#endif
#ifdef WIN32
/* EACCES stops the INC search early in pp_require to implement
feature RT #113422 */