view release on metacpan or  search on metacpan

t/04-environment.t  view on Meta::CPAN

    }
    return (\@lextra, \@rextra);
}

my $out;
my $err;

fake_version('moar-2020.01');
my $print_script = "$homedir/versions/moar-2020.01/bin/print-env.pl";
copy("$FindBin::Bin/bin/print-env.pl", $print_script);
chmod 0755, $print_script;

run([@rakubrew, "switch", "moar-2020.01"], \"", \$out, \$err);
run([@rakubrew, "mode", "shim"], \"", \$out, \$err);
run([@exec, "$homedir/shims/print-env.pl"], \"", \$out);

my @inner_env = split("\n", $out);
@inner_env = grep { $_ } @inner_env;

my @outer_env;
for my $key (keys(%ENV)) {