Bump patchlevel.h to 63.

p4raw-id: //depot/perl@822

1 files changed, 5 insertions, 7 deletions

diff --git a/perl.c b/perl.c
index 00fd96a4e3..326ad0da49 100644
--- a/perl.c
+++ b/perl.c
@@ -1102,7 +1102,7 @@ perl_call_argv(char *sub_name, I32 flags, register char **argv)
 {
     dSP;
 
-    PUSHMARK(sp);
+    PUSHMARK(SP);
     if (argv) {
 	while (*argv) {
 	    XPUSHs(sv_2mortal(newSVpv(*argv,0)));
@@ -1142,9 +1142,8 @@ perl_call_sv(SV *sv, I32 flags)
        
           		/* See G_* flags in cop.h */
 {
-    dTHR;
+    dSP;
     LOGOP myop;		/* fake syntax tree node */
-    SV** sp = stack_sp;
     I32 oldmark;
     I32 retval;
     I32 oldscope;
@@ -1286,10 +1285,9 @@ perl_eval_sv(SV *sv, I32 flags)
        
           		/* See G_* flags in cop.h */
 {
-    dTHR;
+    dSP;
     UNOP myop;		/* fake syntax tree node */
-    SV** sp = stack_sp;
-    I32 oldmark = sp - stack_base;
+    I32 oldmark = SP - stack_base;
     I32 retval;
     I32 oldscope;
     dJMPENV;
@@ -1376,7 +1374,7 @@ perl_eval_pv(char *p, I32 croak_on_error)
     dSP;
     SV* sv = newSVpv(p, 0);
 
-    PUSHMARK(sp);
+    PUSHMARK(SP);
     perl_eval_sv(sv, G_SCALAR);
     SvREFCNT_dec(sv);