1 files changed, 1 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index 304107bcd3..25c78aa5e9 100644
--- a/perlio.c
+++ b/perlio.c
@@ -632,7 +632,7 @@ PerlIO_pop(pTHX_ PerlIO *f)
 	    if ((*l->tab->Popped) (aTHX_ f) != 0)
 		return;
 	}
-	*f = l->next;;
+	*f = l->next;
 	Safefree(l);
     }
 }