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:
|
||||
|
2
testdata/testinput1
vendored
2
testdata/testinput1
vendored
@ -6246,4 +6246,6 @@ ef) x/x,mark
|
||||
#pattern -no_start_optimize
|
||||
#subject -mark
|
||||
|
||||
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||
|
||||
# End of testinput1
|
||||
|
2
testdata/testoutput1
vendored
2
testdata/testoutput1
vendored
@ -9906,4 +9906,6 @@ No match, mark = X
|
||||
#pattern -no_start_optimize
|
||||
#subject -mark
|
||||
|
||||
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
|
||||
|
||||
# End of testinput1
|
||||
|
Loading…
x
Reference in New Issue
Block a user