Add missing multi-dispatch cache invalidation.

rakudo · Jul 7, 2011 · 2898945 · 2898945
1 parent 9000c38
commit 2898945
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -305,6 +305,7 @@ Code.HOW.add_method(Code, 'add_dispatchee', sub ($self, $dispatchee) {
         my $disp_list := pir::getattribute__PPPsP($self, Code, '$!dispatchees');
         if pir::defined($disp_list) {
             $disp_list.push($dispatchee);
+            pir::setattribute__0PPsP($self, Code, '$!dispatcher_cache', pir::null__P());
         }
         else {
             pir::die("Cannot add a dispatchee to a non-dispatcher code object");