Permalink
Browse files

Give :from<java> support for a :jar<...> also.

  • Loading branch information...
1 parent d3b14a7 commit 73b6583d9603754ed3b9ab0437e35c324a91130b @jnthn jnthn committed Aug 6, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/vm/jvm/Perl6/JavaModuleLoader.nqp
@@ -8,7 +8,9 @@ class Perl6::JavaModuleLoader {
# Try to get hold of the type.
my @parts := nqp::split('::', $module_name);
my $jname := nqp::join('.', @parts);
- my $type := try $interop.typeForName($jname);
+ my $type := nqp::existskey(%opts, 'jar')
+ ?? $interop.typeForNameFromJAR($jname, nqp::decont(%opts<jar>))
+ !! $interop.typeForName($jname);
if $type =:= NQPMu {
nqp::die("Could not locate Java module $jname");
}

0 comments on commit 73b6583

Please sign in to comment.