Fix oversight in recent OP_COMMIT_ARG update.
This commit is contained in:
parent
5ea9f6b0f1
commit
7d97c226c7
|
@ -7,7 +7,7 @@ and semantics are as close as possible to those of the Perl 5 language.
|
||||||
|
|
||||||
Written by Philip Hazel
|
Written by Philip Hazel
|
||||||
Original API code Copyright (c) 1997-2012 University of Cambridge
|
Original API code Copyright (c) 1997-2012 University of Cambridge
|
||||||
New API code Copyright (c) 2016-2017 University of Cambridge
|
New API code Copyright (c) 2016-2018 University of Cambridge
|
||||||
|
|
||||||
-----------------------------------------------------------------------------
|
-----------------------------------------------------------------------------
|
||||||
Redistribution and use in source and binary forms, with or without
|
Redistribution and use in source and binary forms, with or without
|
||||||
|
@ -1235,6 +1235,7 @@ for (;;)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
case OP_MARK:
|
case OP_MARK:
|
||||||
|
case OP_COMMIT_ARG:
|
||||||
case OP_PRUNE_ARG:
|
case OP_PRUNE_ARG:
|
||||||
case OP_SKIP_ARG:
|
case OP_SKIP_ARG:
|
||||||
case OP_THEN_ARG:
|
case OP_THEN_ARG:
|
||||||
|
|
|
@ -6246,4 +6246,6 @@ ef) x/x,mark
|
||||||
#pattern -no_start_optimize
|
#pattern -no_start_optimize
|
||||||
#subject -mark
|
#subject -mark
|
||||||
|
|
||||||
|
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||||
|
|
||||||
# End of testinput1
|
# End of testinput1
|
||||||
|
|
|
@ -9906,4 +9906,6 @@ No match, mark = X
|
||||||
#pattern -no_start_optimize
|
#pattern -no_start_optimize
|
||||||
#subject -mark
|
#subject -mark
|
||||||
|
|
||||||
|
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||||
|
|
||||||
# End of testinput1
|
# End of testinput1
|
||||||
|
|
Loading…
Reference in New Issue