1 files changed, 0 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index 093cc8a123..240099bb52 100644
--- a/perlio.c
+++ b/perlio.c
@@ -407,7 +407,6 @@ PerlIO_list_free(PerlIO_list_t *list)
 void
 PerlIO_list_push(PerlIO_list_t *list,PerlIO_funcs *funcs,SV *arg)
 {
- dTHX;
  PerlIO_pair_t *p;
  if (list->cur >= list->len)
   {