const declaration fixup

[p5sagit/p5-mst-13.2.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 1067689..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)
@@ -2853,7 +2853,6 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
        }
        return result;
     } 
-
 }
 
 SSize_t