From 673c27c1f741b8f21e9f8e87048c7df824507930 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 23 Jan 2003 07:26:43 +0000
Subject: [PATCH] Fix Solaris 32-bit invalidate case.

p4raw-id: //depot/perl@18573
---
 perlio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.7.4