RE: perl@8269

Message-ID: <NAEKLNAAHLMBPMPNBMLEIEAKCKAA.rs@crystalflame.net>

A missing aTHX_.

p4raw-id: //depot/perl@8270

diff --git a/toke.c b/toke.c
index 07c86b8..ee8ed5e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4115,7 +4115,7 @@ Perl_yylex(pTHX)
 #endif
 #ifdef PERLIO_LAYERS
                if (UTF && !IN_BYTE)
-                   PerlIO_apply_layers(PL_rsfp, NULL, ":utf8");
+                   PerlIO_apply_layers(aTHX_ PL_rsfp, NULL, ":utf8");
 #endif
                PL_rsfp = Nullfp;
            }