From: Andy Lester <andy@petdance.com>
Date: Mon, 27 Feb 2006 14:20:43 +0000 (-0600)
Subject: Removed a redundant o->op_type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67566ccdd88a933108cc3a31ed70573559f7d367;p=p5sagit%2Fp5-mst-13.2.git

Removed a redundant o->op_type
Message-ID: <20060227202043.GA7783@petdance.com>
Date: Mon, 27 Feb 2006 14:20:43 -0600

p4raw-id: //depot/perl@27349
---

diff --git a/op.c b/op.c
index a63b6ae..53b9861 100644
--- a/op.c
+++ b/op.c
@@ -272,24 +272,27 @@ Perl_op_free(pTHX_ OP *o)
 {
     dVAR;
     OPCODE type;
-    PADOFFSET refcnt;
 
     if (!o || o->op_static)
 	return;
 
+    type = o->op_type;
     if (o->op_private & OPpREFCOUNTED) {
-	switch (o->op_type) {
+	switch (type) {
 	case OP_LEAVESUB:
 	case OP_LEAVESUBLV:
 	case OP_LEAVEEVAL:
 	case OP_LEAVE:
 	case OP_SCOPE:
 	case OP_LEAVEWRITE:
+	    {
+	    PADOFFSET refcnt;
 	    OP_REFCNT_LOCK;
 	    refcnt = OpREFCNT_dec(o);
 	    OP_REFCNT_UNLOCK;
 	    if (refcnt)
 		return;
+	    }
 	    break;
 	default:
 	    break;