X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=64fbc2e2c68181d31627072a41edad49c76cb96f;hb=c242fc0347a4f52619f45807965c56a25db82cbd;hp=4b311f6a4ac00a65713fbcab7d8fa93093ada5de;hpb=e4c2afcad167468b8941414359925b3259dc8772;p=perl%2Fmodules%2Fautovivification.git

diff --git a/autovivification.xs b/autovivification.xs
index 4b311f6..64fbc2e 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -304,9 +304,8 @@ STATIC OP *a_pp_deref(pTHX) {
   U8 old_private;
 
 deref:
-  old_private = PL_op->op_private;
-  PL_op->op_private &= ~OPpDEREF;
-  PL_op->op_private |= OPpLVAL_DEFER;
+  old_private       = PL_op->op_private;
+  PL_op->op_private = ((old_private & ~OPpDEREF) | OPpLVAL_DEFER);
   o = CALL_FPTR(oi.old_pp)(aTHX);
   PL_op->op_private = old_private;