Change 18573: Fix Solaris 32-bit invalidate case.

[Nick Ing-Simmons]

Change 18573 by nick@camel-linux on 2003/01/23 07:26:43

        Fix Solaris 32-bit invalidate case.

Affected files ...

... //depot/perl/perlio.c#201 edit

Differences ...

==== //depot/perl/perlio.c#201 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#200~18561~    Wed Jan 22 09:43:45 2003
+++ perl/perlio.c       Wed Jan 22 23:26:43 2003
@@ -2736,7 +2736,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.