Re: bleadperl doesn't compile

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

diff --git a/perlio.c b/perlio.c
index 173907e..1b950aa 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -89,6 +89,7 @@ perlsio_binmode(FILE *fp, int iotype, int mode)
 #  endif
 #else
 #  if defined(USEMYBINMODE)
+    dTHX;
     if (my_binmode(fp, iotype, mode) != FALSE)
        return 1;
     else