Change 27349: [PATCH] Removed a redundant o->op_type

[Nicholas Clark]

Change 27349 by [EMAIL PROTECTED] on 2006/02/27 21:10:21

        Subject: [PATCH] Removed a redundant o->op_type
        From: [EMAIL PROTECTED] (Andy Lester)
        Message-ID: <[EMAIL PROTECTED]>
        Date: Mon, 27 Feb 2006 14:20:43 -0600

Affected files ...

... //depot/perl/op.c#770 edit

Differences ...

==== //depot/perl/op.c#770 (text) ====
Index: perl/op.c
--- perl/op.c#769~27334~        2006-02-27 03:06:30.000000000 -0800
+++ perl/op.c   2006-02-27 13:10:21.000000000 -0800
@@ -272,24 +272,27 @@
 {
     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;
End of Patch.