1 files changed, 1 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index d89b9bb576..1369cd8476 100644
--- a/perlio.c
+++ b/perlio.c
@@ -416,7 +416,7 @@ FILE *
 PerlIO_findFILE(PerlIO *pio)
 {
     const int fd = PerlIO_fileno(pio);
-    FILE * const f = fdopen(fd, "r+");
+    FILE * f = fdopen(fd, "r+");
     PerlIO_flush(pio);
     if (!f && errno == EINVAL)
 	f = fdopen(fd, "w");