Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

track spec change: &run -> &shell

  • Loading branch information...
commit 143c569581cdd3dc01498604c7abaa8469bdb435 1 parent ab15f81
@moritz moritz authored
Showing with 3 additions and 3 deletions.
  1. +2 −2 S02-magicals/env.t
  2. +1 −1  packages/Test/Util.pm
View
4 S02-magicals/env.t
@@ -55,7 +55,7 @@ my $tempfile = "temp-ex-output." ~ $*PID ~ "." ~ 1000.rand;
my $command = qq!$*EXECUTABLE_NAME -e "\%*ENV.perl.say" $redir $tempfile!;
diag $command;
-run $command;
+shell $command;
my $child_env = slurp $tempfile;
my %child_env = eval $child_env;
@@ -86,7 +86,7 @@ ok(!%*ENV.exists('PUGS_ROCKS'), 'We can remove keys from %*ENV');
$command = qq!$*EXECUTABLE_NAME -e "\%*ENV.perl.say" $redir $tempfile!;
diag $command;
-run $command;
+shell $command;
$child_env = slurp $tempfile;
%child_env = eval $child_env;
View
2  packages/Test/Util.pm
@@ -96,7 +96,7 @@ sub get_out( Str $code, Str $input?, :@args) is export {
$cmd ~= $fnbase ~ '.code' if $code.defined;
$cmd ~= " @actual_args.join(' ') < $fnbase.in > $fnbase.out 2> $fnbase.err";
# diag("Command line: $cmd");
- %out<status> = run( $cmd );
+ %out<status> = shell( $cmd );
%out<out> = slurp "$fnbase.out";
%out<err> = slurp "$fnbase.err";
Please sign in to comment.
Something went wrong with that request. Please try again.