Permalink
Browse files

We need to !DEREF foreign invocants that might have got put in a Perl…

…6Scalar.
  • Loading branch information...
1 parent 703b36e commit 83e060f2e8a4c2a75313756bd42e42574c097dde @jnthn jnthn committed Mar 20, 2009
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/builtins/guts.pir
View
@@ -107,6 +107,7 @@ way. Otherwise, it uses .^dispatch from the metaclass.
.tailcall $P0.'dispatch'(obj, name, pos_args :flat, name_args :flat :named)
foreign:
+ obj = '!DEREF'(obj)
.tailcall obj.name(pos_args :flat, name_args :flat :named)
.end

0 comments on commit 83e060f

Please sign in to comment.