This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reindent S_doeval() following a code purge.
authorDavid Mitchell <davem@iabyn.com>
Sun, 1 Apr 2012 13:26:37 +0000 (14:26 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:51 +0000 (13:32 +0100)
Only whitespace changes.

pp_ctl.c

index 38fe4a2..b3a002c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3381,45 +3381,45 @@ S_doeval(pTHX_ int gimme, CV* outside, U32 seq, HV *hh)
     else
        CLEAR_ERRSV();
 
-       SAVEHINTS();
-       if (clear_hints) {
-           PL_hints = 0;
-           hv_clear(GvHV(PL_hintgv));
-       }
-       else {
-           PL_hints = saveop->op_private & OPpEVAL_COPHH
-                        ? oldcurcop->cop_hints : saveop->op_targ;
-           if (hh) {
-               /* SAVEHINTS created a new HV in PL_hintgv, which we need to GC */
-               SvREFCNT_dec(GvHV(PL_hintgv));
-               GvHV(PL_hintgv) = hh;
-           }
-       }
-       SAVECOMPILEWARNINGS();
-       if (clear_hints) {
-           if (PL_dowarn & G_WARN_ALL_ON)
-               PL_compiling.cop_warnings = pWARN_ALL ;
-           else if (PL_dowarn & G_WARN_ALL_OFF)
-               PL_compiling.cop_warnings = pWARN_NONE ;
-           else
-               PL_compiling.cop_warnings = pWARN_STD ;
+    SAVEHINTS();
+    if (clear_hints) {
+       PL_hints = 0;
+       hv_clear(GvHV(PL_hintgv));
+    }
+    else {
+       PL_hints = saveop->op_private & OPpEVAL_COPHH
+                    ? oldcurcop->cop_hints : saveop->op_targ;
+       if (hh) {
+           /* SAVEHINTS created a new HV in PL_hintgv, which we need to GC */
+           SvREFCNT_dec(GvHV(PL_hintgv));
+           GvHV(PL_hintgv) = hh;
        }
-       else {
-           PL_compiling.cop_warnings =
-               DUP_WARNINGS(oldcurcop->cop_warnings);
-           cophh_free(CopHINTHASH_get(&PL_compiling));
-           if (Perl_cop_fetch_label(aTHX_ oldcurcop, NULL, NULL)) {
-               /* The label, if present, is the first entry on the chain. So rather
-                  than writing a blank label in front of it (which involves an
-                  allocation), just use the next entry in the chain.  */
-               PL_compiling.cop_hints_hash
-                   = cophh_copy(oldcurcop->cop_hints_hash->refcounted_he_next);
-               /* Check the assumption that this removed the label.  */
-               assert(Perl_cop_fetch_label(aTHX_ &PL_compiling, NULL, NULL) == NULL);
-           }
-           else
-               PL_compiling.cop_hints_hash = cophh_copy(oldcurcop->cop_hints_hash);
+    }
+    SAVECOMPILEWARNINGS();
+    if (clear_hints) {
+       if (PL_dowarn & G_WARN_ALL_ON)
+           PL_compiling.cop_warnings = pWARN_ALL ;
+       else if (PL_dowarn & G_WARN_ALL_OFF)
+           PL_compiling.cop_warnings = pWARN_NONE ;
+       else
+           PL_compiling.cop_warnings = pWARN_STD ;
+    }
+    else {
+       PL_compiling.cop_warnings =
+           DUP_WARNINGS(oldcurcop->cop_warnings);
+       cophh_free(CopHINTHASH_get(&PL_compiling));
+       if (Perl_cop_fetch_label(aTHX_ oldcurcop, NULL, NULL)) {
+           /* The label, if present, is the first entry on the chain. So rather
+              than writing a blank label in front of it (which involves an
+              allocation), just use the next entry in the chain.  */
+           PL_compiling.cop_hints_hash
+               = cophh_copy(oldcurcop->cop_hints_hash->refcounted_he_next);
+           /* Check the assumption that this removed the label.  */
+           assert(Perl_cop_fetch_label(aTHX_ &PL_compiling, NULL, NULL) == NULL);
        }
+       else
+           PL_compiling.cop_hints_hash = cophh_copy(oldcurcop->cop_hints_hash);
+    }
 
     CALL_BLOCK_HOOKS(bhk_eval, saveop);
 
@@ -3448,9 +3448,9 @@ S_doeval(pTHX_ int gimme, CV* outside, U32 seq, HV *hh)
                PL_eval_root = NULL;
            }
            SP = PL_stack_base + POPMARK;       /* pop original mark */
-               POPBLOCK(cx,PL_curpm);
-               POPEVAL(cx);
-               namesv = cx->blk_eval.old_namesv;
+           POPBLOCK(cx,PL_curpm);
+           POPEVAL(cx);
+           namesv = cx->blk_eval.old_namesv;
            /* POPBLOCK renders LEAVE_with_name("evalcomp") unnecessary. */
            LEAVE_with_name("eval"); /* pp_entereval knows about this LEAVE.  */
        }