require now searches for exported symbols instead of our-scoped symbols

rakudo · Jun 10, 2012 · d96f5ee · d96f5ee
1 parent 200af35
commit d96f5ee
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -270,6 +270,11 @@ sub INDIRECT_NAME_LOOKUP($root, *@chunks) is rw {
 
 sub REQUIRE_IMPORT($package-name, *@syms) {
     my $package := CALLER::OUR::{$package-name}.WHO;
+    unless $package.exists('EXPORT') {
+        die "Trying to import symbols @syms.join(', ') from '$package-name', but it does not export anything";
+    }
+    $package := $package<EXPORT>.WHO<ALL>.WHO;
+    say $package.keys;
     my @missing;
     for @syms {
         unless $package.exists($_) {