diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 14:32:30 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 14:32:30 -0800 |
| commit | 5731662b7617da2ff1626044f081de38b50a0ddc (patch) | |
| tree | dd7711f6bffe713e26338591b0e53ebb6a242d3e /pp_sys.c | |
| parent | b6cb94c5b90e1d814bbb4b070425ee261df0ce7e (diff) | |
| download | perl-5731662b7617da2ff1626044f081de38b50a0ddc.tar.gz | |
Make -T HANDLE set the last stat type
This was brought up in bug #77388.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -3328,6 +3328,7 @@ PP(pp_fttext) if (! PerlIO_has_base(IoIFP(io))) DIE(aTHX_ "-T and -B not implemented on filehandles"); PL_laststatval = PerlLIO_fstat(PerlIO_fileno(IoIFP(io)), &PL_statcache); + PL_laststype = OP_STAT; if (PL_laststatval < 0) RETPUSHUNDEF; if (S_ISDIR(PL_statcache.st_mode)) { /* handle NFS glitch */ |