diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-04 08:26:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-04 08:26:19 +0000 |
| commit | 1542b985032ae6eca76d4ca4c21d2269e21544f1 (patch) | |
| tree | 29942426b17d0905958ad71fd1da85cb571fe4fb /pp_hot.c | |
| parent | da9274502cf796d52a9875e4c9f650b53901ad73 (diff) | |
| parent | d20626d86bf3d55ba658adbc2678de4c519cbc6c (diff) | |
| download | perl-1542b985032ae6eca76d4ca4c21d2269e21544f1.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4513
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -1085,9 +1085,9 @@ Perl_do_readline(pTHX) if (!fp) { if (IoFLAGS(io) & IOf_ARGV) { if (IoFLAGS(io) & IOf_START) { - IoFLAGS(io) &= ~IOf_START; IoLINES(io) = 0; if (av_len(GvAVn(PL_last_in_gv)) < 0) { + IoFLAGS(io) &= ~IOf_START; do_open(PL_last_in_gv,"-",1,FALSE,O_RDONLY,0,Nullfp); sv_setpvn(GvSV(PL_last_in_gv), "-", 1); SvSETMAGIC(GvSV(PL_last_in_gv)); @@ -1098,7 +1098,6 @@ Perl_do_readline(pTHX) fp = nextargv(PL_last_in_gv); if (!fp) { /* Note: fp != IoIFP(io) */ (void)do_close(PL_last_in_gv, FALSE); /* now it does*/ - IoFLAGS(io) |= IOf_START; } } else if (type == OP_GLOB) { @@ -1302,7 +1301,6 @@ Perl_do_readline(pTHX) if (fp) continue; (void)do_close(PL_last_in_gv, FALSE); - IoFLAGS(io) |= IOf_START; } else if (type == OP_GLOB) { if (!do_close(PL_last_in_gv, FALSE) && ckWARN(WARN_CLOSED)) { |