diff options
Diffstat (limited to 'mathoms.c')
| -rw-r--r-- | mathoms.c | 59 |
1 files changed, 0 insertions, 59 deletions
@@ -602,53 +602,6 @@ Perl_do_exec(pTHX_ const char *cmd) } #endif -#ifdef HAS_PIPE -void -Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv) -{ - dVAR; - register IO *rstio; - register IO *wstio; - int fd[2]; - - if (!rgv) - goto badexit; - if (!wgv) - goto badexit; - - rstio = GvIOn(rgv); - wstio = GvIOn(wgv); - - if (IoIFP(rstio)) - do_close(rgv,FALSE); - if (IoIFP(wstio)) - do_close(wgv,FALSE); - - if (PerlProc_pipe(fd) < 0) - goto badexit; - IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"PIPE_OPEN_MODE); - IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"PIPE_OPEN_MODE); - IoOFP(rstio) = IoIFP(rstio); - IoIFP(wstio) = IoOFP(wstio); - IoTYPE(rstio) = IoTYPE_RDONLY; - IoTYPE(wstio) = IoTYPE_WRONLY; - if (!IoIFP(rstio) || !IoOFP(wstio)) { - if (IoIFP(rstio)) PerlIO_close(IoIFP(rstio)); - else PerlLIO_close(fd[0]); - if (IoOFP(wstio)) PerlIO_close(IoOFP(wstio)); - else PerlLIO_close(fd[1]); - goto badexit; - } - - sv_setsv(sv,&PL_sv_yes); - return; - -badexit: - sv_setsv(sv,&PL_sv_undef); - return; -} -#endif - /* Backwards compatibility. */ int Perl_init_i18nl14n(pTHX_ int printwarn) @@ -656,13 +609,6 @@ Perl_init_i18nl14n(pTHX_ int printwarn) return init_i18nl10n(printwarn); } -/* XXX kept for BINCOMPAT only */ -void -Perl_save_hints(pTHX) -{ - Perl_croak(aTHX_ "internal error: obsolete function save_hints() called"); -} - OP * Perl_oopsCV(pTHX_ OP *o) { @@ -677,11 +623,6 @@ PP(pp_padany) DIE(aTHX_ "NOT IMPL LINE %d",__LINE__); } -PP(pp_threadsv) -{ - DIE(aTHX_ "tried to access per-thread data in non-threaded perl"); -} - PP(pp_mapstart) { DIE(aTHX_ "panic: mapstart"); /* uses grepstart */ |