Change 18574 by jhi@kosh on 2003/01/23 12:28:19
Integrate:
[ 18573]
Fix Solaris 32-bit invalidate case.
Affected files ...
... //depot/maint-5.8/perl/perlio.c#8 integrate
Differences ...
==== //depot/maint-5.8/perl/perlio.c#8 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#7~18565~ Wed Jan 22 10:15:06 2003
+++ perl/perlio.c Thu Jan 23 04:28:19 2003
@@ -2719,7 +2719,7 @@
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)
End of Patch.
