[asperl] bring ASPerl uptodate with mainline changes

p4raw-id: //depot/asperl@524

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index 878555e61a..348e254b0f 100644
--- a/toke.c
+++ b/toke.c
@@ -662,7 +662,7 @@ STATIC I32
 sublex_push(void)
 {
     dTHR;
-    push_scope();
+    ENTER;
 
     lex_state = sublex_info.super_state;
     SAVEI32(lex_dojoin);
@@ -748,7 +748,7 @@ sublex_done(void)
 	return ',';
     }
     else {
-	pop_scope();
+	LEAVE;
 	bufend = SvPVX(linestr);
 	bufend += SvCUR(linestr);
 	expect = XOPERATOR;