diff options
| author | Nikolai Eipel <eipel@web.de> | 2005-01-29 17:52:53 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-18 18:21:25 +0000 |
| commit | 25988e07f3c5c5717930b897625a3e6119c92879 (patch) | |
| tree | 2481701c943f1796aaa5b6db6f64527763398517 /pp_sys.c | |
| parent | 6efb3e4d02394a3742a9a02168625f812dad3829 (diff) | |
| download | perl-25988e07f3c5c5717930b897625a3e6119c92879.tar.gz | |
Patch for Perlbug #4253
Message-Id: <200501291652.53841.eipel@web.de>
(-T and -B invalidate _ filehandle when no read permission on file)
plus a regression test
p4raw-id: //depot/perl@23986
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -3464,7 +3464,6 @@ PP(pp_fttext) sv = POPs; 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"))) { |