From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Sat, 30 Dec 2000 11:36:27 +0000 (-0800)
Subject: RE: perl@8269
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69984a9127db5733a065f93bcbd8024b6c1630db;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }