re_intuit_start(): remove redundant assignment

we do 'rx_origin = strpos;' in the branch that has the condition
'rx_origin == strpos'

diff --git a/regexec.c b/regexec.c
index 82b174f..4a9a82d 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1159,7 +1159,6 @@ Perl_re_intuit_start(pTHX_
            /* May be due to an implicit anchor of m{.*foo}  */
            && !(prog->intflags & PREGf_IMPLICIT))
        {
-           rx_origin = strpos;
            goto find_anchor;
        }
        DEBUG_EXECUTE_r( if (ml_anch)