Fix Solaris 32-bit invalidate case.

p4raw-id: //depot/perl@18573

diff --git a/perlio.c b/perlio.c
index e6de36f..a9228b4 100644 (file)
--- 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)