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
|
||||
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
|
||||
|
@ -1235,6 +1235,7 @@ for (;;)
|
|||
#endif
|
||||
|
||||
case OP_MARK:
|
||||
case OP_COMMIT_ARG:
|
||||
case OP_PRUNE_ARG:
|
||||
case OP_SKIP_ARG:
|
||||
case OP_THEN_ARG:
|
||||
|
|
|
@ -6246,4 +6246,6 @@ ef) x/x,mark
|
|||
#pattern -no_start_optimize
|
||||
#subject -mark
|
||||
|
||||
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||
|
||||
# End of testinput1
|
||||
|
|
|
@ -9906,4 +9906,6 @@ No match, mark = X
|
|||
#pattern -no_start_optimize
|
||||
#subject -mark
|
||||
|
||||
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||
|
||||
# End of testinput1
|
||||
|
|
Loading…
Reference in New Issue