Permalink
Browse files

get rid of the EVAL

moritz++ for the help
1 parent fe2ebe5 commit c36ca643f7d998369cb15716a2f32f7d6903d5c8 @masak committed Jun 14, 2016
Showing with 2 additions and 3 deletions.
  1. +2 −3 t/integration/val-q-classes.t
@@ -1,17 +1,16 @@
use v6;
-use MONKEY-SEE-NO-EVAL;
use Test;
use _007;
-sub tree-walk($package, @accum) {
+sub tree-walk(Stash $package, @accum) {
for $package.keys -> $key {
my $name = "{$package}::{$key}";
# make a little exception for Val::Sub::Builtin, which is just an
# implementation detail and doesn't have a corresponding builtin
# (because it tries to pass itself off as a Val::Sub)
next if $name eq "Val::Sub::Builtin";
push @accum, $name;
- tree-walk(EVAL("{$name}::"), @accum)
+ tree-walk(::($name).WHO , @accum)
}
}

0 comments on commit c36ca64

Please sign in to comment.