Bug #130382 for Parse-RecDescent: Text modifications of scored subrules get lost

Parse::RecDescent 1.967015 Hi, When using scored productions, as in: rule : match1 <score: ...> | match2 the match attempt for the second production (match2) will reset the remaining (i.e. unparsed) text, discarding any changes from earlier scored matches. If match2 fails, this results in incorrect behaviour. Please see the example code (test.pl): parsing the string "entry 1 #" fails, while it should succeed. The problem arises because every attempt to match a sub-production resets the local $text variable to the initial value (and potentially modifies it subsequently): sub Parse::RecDescent::TestParser::list { ... while (!$_matched && !$commit) { ... $text = $_[1]; ... # Trying production: match1 } while (!$_matched && !$commit) { ... $text = $_[1]; <=============== RESET ... # Trying production: match2 } ... $_[1] = $text; return $return; } To fix this I have introduced a variable "$score_text" which stores the remaining text in case of a successful scored match. This is essentially the same approach as with $score_return. (see ScoreText.patch) Bye!