Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
We need to !DEREF foreign invocants that might have got put in a Perl…
…6Scalar.
  • Loading branch information
jnthn committed Mar 20, 2009
1 parent 703b36e commit 83e060f
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/builtins/guts.pir
Expand Up @@ -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
Expand Down

0 comments on commit 83e060f

Please sign in to comment.