From: Nick Ing-Simmons Date: Thu, 23 Jan 2003 07:26:43 +0000 (+0000) Subject: Fix Solaris 32-bit invalidate case. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=673c27c1f741b8f21e9f8e87048c7df824507930;p=p5sagit%2Fp5-mst-13.2.git Fix Solaris 32-bit invalidate case. p4raw-id: //depot/perl@18573 --- diff --git a/perlio.c b/perlio.c index e6de36f..a9228b4 100644 --- a/perlio.c +++ b/perlio.c @@ -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)