An inconvenient hang would happen if the stdio _ptr wasn't

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 88ce86c..37b8d14 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -301,9 +301,6 @@ PP(pp_backtick)
        if (PL_curcop->cop_io) {
            type = SvPV_nolen(PL_curcop->cop_io);
        }
-       else if (O_BINARY != O_TEXT) {
-           type = ":crlf";
-       }
        if (type && *type)
            PerlIO_apply_layers(aTHX_ fp,mode,type);
 
@@ -3732,9 +3729,6 @@ PP(pp_fork)
     if (childpid < 0)
        RETSETUNDEF;
     if (!childpid) {
-#ifdef SOCKS_64BIT_BUG
-       Perl_do_s64_init_buffer();
-#endif
        /*SUPPRESS 560*/
        if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV)))
            sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid());