From 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 20 Jul 1998 09:38:39 +0000
Subject: complete s/foo/PL_foo/ changes (all escaped cases identified with
 brute force search script).  Result builds and passes all tests on Solaris. 
 win32 and PERL_OBJECT are still untested.

p4raw-id: //depot/perl@1578
---
 toke.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index 8c2121d587..75f2b8ac77 100644
--- a/toke.c
+++ b/toke.c
@@ -1885,7 +1885,7 @@ yylex(void)
 		     */
 		    SV *x = GvSV(gv_fetchpv("\030", TRUE, SVt_PV));
 		    assert(SvPOK(x) || SvGMAGICAL(x));
-		    if (sv_eq(x, GvSV(curcop->cop_filegv))) {
+		    if (sv_eq(x, GvSV(PL_curcop->cop_filegv))) {
 			sv_setpvn(x, ipath, ipathend - ipath);
 			SvSETMAGIC(x);
 		    }
@@ -3197,7 +3197,7 @@ yylex(void)
 
 	case KEY_crypt:
 #ifdef FCRYPT
-	    if (!cryptseen++)
+	    if (!PL_cryptseen++)
 		init_des();
 #endif
 	    LOP(OP_CRYPT,XTERM);
-- 
cgit v1.2.1