diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-31 15:37:52 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-31 15:27:49 +0000 |
| commit | 5c9aa243fcc1509167c9708b74c0f9451983e63b (patch) | |
| tree | 3836db23368a8eaf52251f153213bdf99408780a /pp_sys.c | |
| parent | 62961d2e50d22e7ae5a679eac7bf6d593193e108 (diff) | |
| download | perl-5c9aa243fcc1509167c9708b74c0f9451983e63b.tar.gz | |
forbid -l _ after -T _
Message-ID: <20020131143752.A1452@rafael>
p4raw-id: //depot/perl@14506
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -3311,6 +3311,7 @@ PP(pp_fttext) really_filename: PL_statgv = Nullgv; PL_laststatval = -1; + PL_laststype = OP_STAT; sv_setpv(PL_statname, SvPV(sv, n_a)); if (!(fp = PerlIO_open(SvPVX(PL_statname), "r"))) { if (ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, n_a), '\n')) |