-
-
Save FROGGS/a6aee767b154a611f4ee to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/core/Inc.pm b/src/core/Inc.pm | |
index c1f9f15..0d37da2 100644 | |
--- a/src/core/Inc.pm | |
+++ b/src/core/Inc.pm | |
@@ -23,7 +23,7 @@ RAKUDO_MODULE_DEBUG("Init @INC with {specs}") | |
} | |
} | |
else { | |
- @INC.push: PARSE-INCLUDE-SPECS($I); | |
+ @INC.push: PARSE-INCLUDE-SPECS(nqp::p6box_s($I)); | |
} | |
} | |
diff --git a/src/core/Str.pm b/src/core/Str.pm | |
index 32d2bfc..a9fa1b8 100644 | |
--- a/src/core/Str.pm | |
+++ b/src/core/Str.pm | |
@@ -952,6 +952,7 @@ my class Str does Stringy { # declared in BOOTSTRAP | |
if ($all) { | |
my $elems = +matches; | |
map { | |
+ next if nqp::istype($_, List); | |
my $value = substr(self,$prev-pos, .from - $prev-pos); | |
$prev-pos = .to; | |
# we don't want the dummy object | |
@@ -961,6 +962,7 @@ my class Str does Stringy { # declared in BOOTSTRAP | |
} | |
else { | |
map { | |
+ next if nqp::istype($_, List); | |
my $value = substr(self, $prev-pos, .from - $prev-pos); | |
$prev-pos = .to; | |
$value; | |
diff --git a/src/core/traits.pm b/src/core/traits.pm | |
index cc5cc0d..f21607c 100644 | |
--- a/src/core/traits.pm | |
+++ b/src/core/traits.pm | |
@@ -255,6 +255,7 @@ sub EXPORT_SYMBOL(\exp_name, @tags, Mu \sym) { | |
} | |
@export_packages.push: .WHO<EXPORT>; | |
} | |
+ nqp::say('traits:258 ' ~ @tags.perl); | |
for @export_packages -> $p { | |
for @tags -> $tag { | |
my $install_in; | |
@@ -264,6 +265,7 @@ sub EXPORT_SYMBOL(\exp_name, @tags, Mu \sym) { | |
else { | |
$install_in := Metamodel::PackageHOW.new_type(:name($tag)); | |
$install_in.^compose; | |
+ nqp::say('traits:267 ' ~ $tag.perl); | |
$p.WHO{$tag} := $install_in; | |
} | |
if $install_in.WHO.EXISTS-KEY(exp_name) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
./perl6-j --target=jar --output=lib/NativeCall.pm.jar -Ilib lib/NativeCall.pm | |
traits:258 ["ALL", ("types", "DEFAULT")] | |
traits:267 "ALL" | |
traits:267 $("types", "DEFAULT") | |
===SORRY!=== | |
Cannot bind to Stash slice |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment