Skip to content

Instantly share code, notes, and snippets.

@cygx
Created November 16, 2015 14:40
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 cygx/cfef662ea505cd68b2e8 to your computer and use it in GitHub Desktop.
Save cygx/cfef662ea505cd68b2e8 to your computer and use it in GitHub Desktop.
diff --git a/src/core/operators.pm b/src/core/operators.pm
index 17dacbd..e196e94 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -565,7 +565,7 @@ sub INDIRECT_NAME_LOOKUP($root, *@chunks) is raw {
}
sub REQUIRE_IMPORT($package-name, *@syms) {
- my $package = CALLER::OUR::($package-name);
+ my $package = ::($package-name);
my $who = $package.WHO;
unless $who.EXISTS-KEY('EXPORT') {
die "Trying to import symbols @syms.join(', ') from '$package-name', but it does not export anything";
@cygx
Copy link
Author

cygx commented Dec 15, 2015

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment