Cache the NFAs built for proto-regexes so we don't have to re-build them every time we run the protoregex.

jnthn · jnthn · commit c78fddf64387 · 2011-11-19T17:14:23.000+01:00
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -118,7 +118,7 @@ role NQPCursorRole {
     }
 
     method !protoregex($name) {
-        my $nfa := self.'!protoregex_nfa'($name);
+        my $nfa := self.HOW.cache(self, $name, { self.'!protoregex_nfa'($name) });
         my @fatepos := $nfa.run($!target, $!pos);
         my $cur;
         if @fatepos {

Original file line number	Diff line number	Diff line change
`@@ -118,7 +118,7 @@ role NQPCursorRole {`
`118`	`118`	`}`
`119`	`119`
`120`	`120`	`method !protoregex($name) {`
`121`		`- my $nfa := self.'!protoregex_nfa'($name);`
	`121`	`+ my $nfa := self.HOW.cache(self, $name, { self.'!protoregex_nfa'($name) });`
`122`	`122`	`my @fatepos := $nfa.run($!target, $!pos);`
`123`	`123`	`my $cur;`
`124`	`124`	`if @fatepos {`