Skip to content

Instantly share code, notes, and snippets.

@moritz
Created July 26, 2013 20:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save moritz/6092037 to your computer and use it in GitHub Desktop.
Save moritz/6092037 to your computer and use it in GitHub Desktop.
Patch for perl #118965]
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
index c696834..9adbcfb 100644
--- a/src/Perl6/World.nqp
+++ b/src/Perl6/World.nqp
@@ -386,6 +386,9 @@ class Perl6::World is HLL::World {
# if both are multis and have onlystar dispatchers.
my $installed := %sym<value>;
my $foreign := $_.value;
+ if $installed =:= $foreign {
+ next;
+ }
if nqp::can($installed, 'is_dispatcher') && $installed.is_dispatcher
&& nqp::can($foreign, 'is_dispatcher') && $foreign.is_dispatcher {
# Both dispatchers, but are they onlystar? If so, we can
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment