forked from boostorg/regex
de-fuzz: Failed Pearl verbs should fail better and louder.
This commit is contained in:
@ -479,7 +479,8 @@ bool basic_regex_parser<charT, traits>::parse_open_paren()
|
|||||||
// now recursively add more states, this will terminate when we get to a
|
// now recursively add more states, this will terminate when we get to a
|
||||||
// matching ')' :
|
// matching ')' :
|
||||||
//
|
//
|
||||||
parse_all();
|
if(!parse_all())
|
||||||
|
return false;
|
||||||
//
|
//
|
||||||
// Unwind pushed alternatives:
|
// Unwind pushed alternatives:
|
||||||
//
|
//
|
||||||
@ -2860,6 +2861,10 @@ bool basic_regex_parser<charT, traits>::parse_perl_verb()
|
|||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
// Rewind to start of (* sequence:
|
||||||
|
--m_position;
|
||||||
|
while(this->m_traits.syntax_type(*m_position) != regex_constants::syntax_open_mark) --m_position;
|
||||||
|
fail(regex_constants::error_perl_extension, m_position - m_base);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user