diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-02 20:46:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-02 20:46:27 +0000 |
| commit | cd39f2b66bd181466dfcec205891c8c477478488 (patch) | |
| tree | 21f5dde2bc1335cd1745fe514b6df8f4c6bf1ffa /pp_hot.c | |
| parent | 3cf5c1959ebd22791f34a1706083a3ce9aa50a39 (diff) | |
| download | perl-cd39f2b66bd181466dfcec205891c8c477478488.tar.gz | |
Initial integration of the MacPerl changes form Matthias.
p4raw-id: //depot/cfgperl@4508
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -1190,6 +1190,11 @@ Perl_do_readline(pTHX) } } #else /* !VMS */ +#ifdef MACOS_TRADITIONAL + sv_setpv(tmpcmd, "glob "); + sv_catsv(tmpcmd, tmpglob); + sv_catpv(tmpcmd, " |"); +#else #ifdef DOSISH #ifdef OS2 sv_setpv(tmpcmd, "for a in "); @@ -1221,6 +1226,7 @@ Perl_do_readline(pTHX) #endif #endif /* !CSH */ #endif /* !DOSISH */ +#endif /* MACOS_TRADITIONAL */ (void)do_open(PL_last_in_gv, SvPVX(tmpcmd), SvCUR(tmpcmd), FALSE, O_RDONLY, 0, Nullfp); fp = IoIFP(io); @@ -2471,6 +2477,9 @@ try_autoload: if (CvDEPTH(cv) < 2) (void)SvREFCNT_inc(cv); else { /* save temporaries on recursion? */ +#ifdef MACOS_TRADITIONAL + MacStackAttack(); +#endif if (CvDEPTH(cv) > AvFILLp(padlist)) { AV *av; AV *newpad = newAV(); |