(Retracted by #9852.)

Subject: [PATCH @9846] dumping ANYOF
Message-Id: <200104260432.FAA12669@crypt.compulink.co.uk>

p4raw-id: //depot/perl@9851

diff --git a/regcomp.c b/regcomp.c
index 59b2712..346ffff 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3929,6 +3929,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
        n = add_data(pRExC_state, 1, "s");
        RExC_rx->data->data[n] = (void*)rv;
        ARG_SET(ret, n);
+       NEXT_OFF(ret) = RExC_emit - ret;
     }
 
     return ret;