summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2014-02-10 14:44:25 +0000
committerDavid Mitchell <davem@iabyn.com>2014-03-16 18:03:48 +0000
commitee5cbb25cd8121857974ab2c66dc5acd2467b5da (patch)
treec1f7f1a4ef54480e5c36599455569ca198679459 /regexec.c
parent5149a019c7412ab294e1fd1bcfc139bcafc3b5ee (diff)
downloadperl-ee5cbb25cd8121857974ab2c66dc5acd2467b5da.tar.gz
re_intuit_start(): remove if(check)
It this point in the stclass block, we have already confirmed that an anchored substring exists and that the check substring is anchored. So check cannot be null at this point. So don't test for it being null.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index cdd27b0a06..ce539583fd 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1296,8 +1296,6 @@ Perl_re_intuit_start(pTHX_
goto fail;
}
rx_origin = s;
- if (!check)
- goto giveup;
DEBUG_EXECUTE_r( PerlIO_printf(Perl_debug_log,
" Looking for %s substr starting at offset %ld...\n",
what, (long)(rx_origin + start_shift - strpos)) );