diff options
author | David Mitchell <davem@iabyn.com> | 2014-02-10 14:44:25 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2014-03-16 18:03:48 +0000 |
commit | ee5cbb25cd8121857974ab2c66dc5acd2467b5da (patch) | |
tree | c1f7f1a4ef54480e5c36599455569ca198679459 /regexec.c | |
parent | 5149a019c7412ab294e1fd1bcfc139bcafc3b5ee (diff) | |
download | perl-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.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -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)) ); |