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

1 files changed, 2 insertions, 2 deletions

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