diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-01-23 07:26:43 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-01-23 07:26:43 +0000 |
| commit | 673c27c1f741b8f21e9f8e87048c7df824507930 (patch) | |
| tree | 98d19936a23ae59228dab633f934966187ec008b /perlio.c | |
| parent | 3bef8b4a6d7c7e51bf579a6adc7c4edd24022569 (diff) | |
| download | perl-673c27c1f741b8f21e9f8e87048c7df824507930.tar.gz | |
Fix Solaris 32-bit invalidate case.
p4raw-id: //depot/perl@18573
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2736,7 +2736,7 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f) even if that would be treated as 0xFF - so will a dup fail ... */ - f->_file = PerlLIO_dup(fd); + f->_file = PerlLIO_dup(fileno(f)); # endif /* defined(_LP64) */ return 1; # elif defined(__hpux) |